| 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 |