gcc/testsuite/gfortran.dg/pr95090.f90

! { dg-do compile }
! { dg-options "-fcoarray=lib -fsecond-underscore" }
! PR fortran/95090 - ICE: identifier overflow

module m2345678901234567890123456789012345678901234567890123456789_123
  type t2345678901234567890123456789012345678901234567890123456789_123 &
      (n2345678901234567890123456789012345678901234567890123456789_123)
     integer, len :: n2345678901234567890123456789012345678901234567890123456789_123 = 8
  end type
  integer :: a2345678901234567890123456789012345678901234567890123456789_123
  integer :: b2345678901234567890123456789012345678901234567890123456789_123(3)[*]
  data b2345678901234567890123456789012345678901234567890123456789_123 /1,2,3/
contains
  subroutine s2345678901234567890123456789012345678901234567890123456789_123
    type(t2345678901234567890123456789012345678901234567890123456789_123 &
        (n2345678901234567890123456789012345678901234567890123456789_123)) :: &
         z2345678901234567890123456789012345678901234567890123456789_123
   end
end