12345678910111213141516 |
- 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
|