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.
32 lines
459 B
32 lines
459 B
5 years ago
|
module circle
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
integer :: x
|
||
|
|
real :: radius
|
||
|
|
|
||
|
|
interface default
|
||
|
|
module procedure timestwo
|
||
|
|
end interface
|
||
|
|
|
||
|
|
contains
|
||
|
|
|
||
|
|
elemental integer function timestwo(x) result(y)
|
||
|
|
integer, intent(in) :: x
|
||
|
|
y = 2*x
|
||
|
|
end function
|
||
|
|
end module circle
|
||
|
|
|
||
|
|
program prog
|
||
|
|
|
||
|
|
use, non_intrinsic :: circle, only: timestwo, x
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
x = 3
|
||
|
|
|
||
|
|
if (timestwo(x) /= 6) error stop 'fortran module procedure problem'
|
||
|
|
|
||
|
|
print *,'OK: Fortran module procedure'
|
||
|
|
|
||
|
|
end program prog
|