gcc/testsuite/gfortran.dg/pr95688.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fsecond-underscore" }
   3 ! PR fortran/95688 - ICE in gfc_get_string, at fortran/iresolve.c:70
   4
   5 module m2345678901234567890123456789012345678901234567890123456789_123
   6   interface
   7      module subroutine s2345678901234567890123456789012345678901234567890123456789_123
   8      end
   9   end interface
  10 end
  11 submodule(m2345678901234567890123456789012345678901234567890123456789_123) &
  12           n2345678901234567890123456789012345678901234567890123456789_123
  13   character(:), pointer :: &
  14           x2345678901234567890123456789012345678901234567890123456789_123 => null()
  15 end