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 5program 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 20end 21