test cases/fortran/8 module names/mod2.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module mymod2
use mymod1
implicit none

integer, parameter :: myModVal2 = 2

contains
    subroutine showvalues()
        print*, "myModVal1 = ", myModVal1
        print*, "myModVal2 = ", myModVal2
    end subroutine showvalues


end module mymod2