The Meson Build System
http://mesonbuild.com/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
298 B
16 lines
298 B
10 years ago
|
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
|