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.
26 lines
340 B
26 lines
340 B
module parent |
|
real, parameter :: pi = 4.*atan(1.) |
|
real :: tau |
|
|
|
interface |
|
module elemental real function pi2tau(pi) |
|
real, intent(in) :: pi |
|
end function pi2tau |
|
|
|
module subroutine good() |
|
end subroutine good |
|
end interface |
|
|
|
end module parent |
|
|
|
program main |
|
|
|
use parent |
|
|
|
tau = pi2tau(pi) |
|
|
|
print *,'pi=',pi, 'tau=', tau |
|
|
|
call good() |
|
|
|
end program
|
|
|