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
real :: tau, pi
pi = get_pi()
tau = pi2tau(pi)
print *,'pi=',pi,'tau=',tau
end program
