watchrobot/modules/waf/demos/fortran/mod/two_mods.f90

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