You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

12 lines
104 B

module m1
implicit none
contains
pure real function pi()
pi = 4*atan(1.)
end function
end module m1