gcc/testsuite/gfortran.dg/pr95826.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fsecond-underscore" }
   3 ! PR fortran/95826 - ICE in gfc_match_decl_type_spec, at fortran/decl.c:4290
   4
   5 program p
   6   type t2345678901234567890123456789012345678901234567890123456789_123 &
   7       (a2345678901234567890123456789012345678901234567890123456789_123, &
   8        b2345678901234567890123456789012345678901234567890123456789_123)
   9      integer, kind :: &
  10        a2345678901234567890123456789012345678901234567890123456789_123
  11      integer, len :: &
  12        b2345678901234567890123456789012345678901234567890123456789_123
  13   end type
  14   integer, parameter :: &
  15        n2345678901234567890123456789012345678901234567890123456789_123 = 16
  16   type(t2345678901234567890123456789012345678901234567890123456789_123 &
  17       (n2345678901234567890123456789012345678901234567890123456789_123,:)), &
  18        allocatable :: &
  19        x2345678901234567890123456789012345678901234567890123456789_123
  20 end