gcc/testsuite/gfortran.dg/pr95688.f90

! { dg-do compile }
! { dg-options "-fsecond-underscore" }
! PR fortran/95688 - ICE in gfc_get_string, at fortran/iresolve.c:70

module m2345678901234567890123456789012345678901234567890123456789_123
  interface
     module subroutine s2345678901234567890123456789012345678901234567890123456789_123
     end
  end interface
end
submodule(m2345678901234567890123456789012345678901234567890123456789_123) &
          n2345678901234567890123456789012345678901234567890123456789_123
  character(:), pointer :: &
          x2345678901234567890123456789012345678901234567890123456789_123 => null()
end