gcc/testsuite/gfortran.dg/pr95826.f90

! { dg-do compile }
! { dg-options "-fsecond-underscore" }
! PR fortran/95826 - ICE in gfc_match_decl_type_spec, at fortran/decl.c:4290

program p
  type t2345678901234567890123456789012345678901234567890123456789_123 &
      (a2345678901234567890123456789012345678901234567890123456789_123, &
       b2345678901234567890123456789012345678901234567890123456789_123)
     integer, kind :: &
       a2345678901234567890123456789012345678901234567890123456789_123
     integer, len :: &
       b2345678901234567890123456789012345678901234567890123456789_123
  end type
  integer, parameter :: &
       n2345678901234567890123456789012345678901234567890123456789_123 = 16
  type(t2345678901234567890123456789012345678901234567890123456789_123 &
      (n2345678901234567890123456789012345678901234567890123456789_123,:)), &
       allocatable :: &
       x2345678901234567890123456789012345678901234567890123456789_123
end