selfdep.f90 145 B

123456789101112
  1. MODULE Circle
  2. REAL, PARAMETER :: Pi = 3.1415927
  3. REAL :: radius
  4. END MODULE Circle
  5. PROGRAM prog
  6. use Circle
  7. IMPLICIT NONE
  8. END PROGRAM prog