meson/test cases/fortran/12 submodule/a1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

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