two_mods.f90 (689B)
1 module MOD1 2 end module MOD1 3 4 module mod2 5 use mod1 6 integer :: mod2_int 7 8 ! FIXME: 9 ! replace the following line with the commented version, and recompile. 10 ! mod/uses_two_mods.f90 should be recompiled, but currently isn't. 11 12 integer, parameter :: mod2_param = 5 13 ! integer, parameter :: mod2_param = 6 14 15 interface mod2_proc 16 module procedure mod2_proc1, mod2_proc2 17 end interface 18 19 contains 20 21 subroutine mod2_proc1(a) 22 implicit none 23 integer, intent(inout) :: a 24 a = 10 25 end subroutine 26 27 subroutine mod2_proc2(a) 28 implicit none 29 real, intent(inout) :: a 30 a = 10.0 31 end subroutine 32 33 end module mod2 34