gcc/testsuite/gfortran.dg/pr93461.f90

! { dg-do compile }
! PR fortran/93461
module aModuleWithAnAllowedName
  interface
     module subroutine aShortName()
     end subroutine aShortName
  end interface
end module aModuleWithAnAllowedName

submodule (aModuleWithAnAllowedName) aSubmoduleWithAVeryVeryVeryLongButEntirelyLegalName
contains
  subroutine aShortName()
    call aSubroutineWithAVeryLongNameThatWillCauseAProblem()
    call aSubroutineWithAVeryLongNameThatWillCauseAProblemAlso()
  end subroutine aShortName
  
  subroutine aSubroutineWithAVeryLongNameThatWillCauseAProblem()
  end subroutine aSubroutineWithAVeryLongNameThatWillCauseAProblem

  subroutine aSubroutineWithAVeryLongNameThatWillCauseAProblemAlso()
  end subroutine aSubroutineWithAVeryLongNameThatWillCauseAProblemAlso  
end submodule aSubmoduleWithAVeryVeryVeryLongButEntirelyLegalName