lib.f90 119 B

12345678910111213
  1. module lib
  2. use m1, only : pi
  3. implicit none
  4. contains
  5. pure real function func()
  6. func = pi()
  7. end function
  8. end module