test/example_packages/submodules/src/parent.f90


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

module parent
implicit none

interface

    module subroutine my_sub1(a)
        integer, intent(out) :: a
    end subroutine my_sub1

    module subroutine my_sub2(a)
        integer, intent(out) :: a
    end subroutine my_sub2
end interface

end module parent