mirror of
https://gitlab.com/ita1024/waf.git
synced 2024-11-19 16:36:42 +01:00
35 lines
689 B
Fortran
35 lines
689 B
Fortran
module MOD1
|
|
end module MOD1
|
|
|
|
module mod2
|
|
use mod1
|
|
integer :: mod2_int
|
|
|
|
! FIXME:
|
|
! replace the following line with the commented version, and recompile.
|
|
! mod/uses_two_mods.f90 should be recompiled, but currently isn't.
|
|
|
|
integer, parameter :: mod2_param = 5
|
|
! integer, parameter :: mod2_param = 6
|
|
|
|
interface mod2_proc
|
|
module procedure mod2_proc1, mod2_proc2
|
|
end interface
|
|
|
|
contains
|
|
|
|
subroutine mod2_proc1(a)
|
|
implicit none
|
|
integer, intent(inout) :: a
|
|
a = 10
|
|
end subroutine
|
|
|
|
subroutine mod2_proc2(a)
|
|
implicit none
|
|
real, intent(inout) :: a
|
|
a = 10.0
|
|
end subroutine
|
|
|
|
end module mod2
|
|
|