blob: cb4491661e7538552b3a888a658b40c050bd7ef0 [file] [log] [blame]
module a1
implicit none
interface
module elemental real function pi2tau(pi)
real, intent(in) :: pi
end function pi2tau
module real function get_pi()
end function get_pi
end interface
end module a1
program hierN
use a1
pi = get_pi()
tau = pi2tau(pi)
print *,'pi=',pi,'tau=',tau
end program