| ! { 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 |