blob: 3180b7043cbf687b5a1b4ce2781a01d682a6df44 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module parent
implicit none
interface
! Test Fortran 2008 "module function" syntax
module function child_function() result(child_stuff)
logical :: child_stuff
end function
module function sibling_function() result(sibling_stuff)
logical :: sibling_stuff
end function
! Test Fortran 2008 "module subroutine" syntax
module subroutine grandchild_subroutine()
end subroutine
module subroutine GreatGrandChild_subroutine()
end subroutine
end interface
end module parent
|
