blob: 8de04e65df0f00507f6fa05b46fb7693fb3a8be9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { 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
|
