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.
31 lines
459 B
31 lines
459 B
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
|
|
|