3 module aModuleWithAnAllowedName
5 module subroutine aShortName()
6 end subroutine aShortName
8 end module aModuleWithAnAllowedName
10 submodule (aModuleWithAnAllowedName
) aSubmoduleWithAVeryVeryVeryLongButEntirelyLegalName
12 subroutine aShortName()
13 call aSubroutineWithAVeryLongNameThatWillCauseAProblem()
14 call aSubroutineWithAVeryLongNameThatWillCauseAProblemAlso()
15 end subroutine aShortName
17 subroutine aSubroutineWithAVeryLongNameThatWillCauseAProblem()
18 end subroutine aSubroutineWithAVeryLongNameThatWillCauseAProblem
20 subroutine aSubroutineWithAVeryLongNameThatWillCauseAProblemAlso()
21 end subroutine aSubroutineWithAVeryLongNameThatWillCauseAProblemAlso
22 end submodule aSubmoduleWithAVeryVeryVeryLongButEntirelyLegalName