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