test cases/fortran/3 module procedure/prog.f90

MODULE Circle
   REAL, PARAMETER :: Pi = 3.1415927
   REAL :: radius
   INTERFACE DEFAULT
      MODULE PROCEDURE func
   END INTERFACE
   CONTAINS
      FUNCTION func()
         func = 0
      END FUNCTION
END MODULE Circle

PROGRAM PROG
   print *, "Module procedure is working."
END PROGRAM PROG