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