152
|
1 ! { dg-do compile }
|
|
2 ! PR fortran/93486
|
|
3 module ivs
|
|
4 interface l
|
|
5 module procedure l_
|
|
6 end interface l
|
|
7 contains
|
|
8 function l_()
|
|
9 end function l_
|
|
10 end module ivs
|
|
11
|
|
12 module aModeratleyLongModuleName
|
|
13 use ivs
|
|
14 interface
|
|
15 module subroutine cmo()
|
|
16 end subroutine cmo
|
|
17 end interface
|
|
18 end module aModeratleyLongModuleName
|
|
19
|
|
20 submodule (aModeratleyLongModuleName) aNameForASubmoduleThatIsVeryLongButWhichIsLegalStill
|
|
21 contains
|
|
22 module procedure cmo
|
|
23 end procedure cmo
|
|
24 end submodule aNameForASubmoduleThatIsVeryLongButWhichIsLegalStill
|
|
25
|
|
26 submodule (aModeratleyLongModuleName:aNameForASubmoduleThatIsVeryLongButWhichIsLegalStill) sb
|
|
27 end submodule sb
|
|
28
|
|
29 submodule (aModeratleyLongModuleName:sb) sc
|
|
30 end submodule sc
|