iface.f90 104 B

1234567891011
  1. module m1
  2. implicit none
  3. contains
  4. pure real function pi()
  5. pi = 4*atan(1.)
  6. end function
  7. end module m1