test cases/fortran/12 submodule/parent.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

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


use parent

tau = pi2tau(pi)

print *,'pi=',pi, 'tau=', tau

call good()

end program