blob: 39e5369c056f02c0433f25a2eee7b5544f50897a (
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 "-fdec-structure" }
!
! PR fortran/78240
!
! Test a regression where an ICE occurred attempting to create array variables
! with non-constant array-specs in legacy clist initializers.
!
! Error message update with patch for PR fortran/83633
!
program p
implicit none
integer :: nn
real :: rr
structure /s/
integer x(n) /1/ ! { dg-error "must be constant of INTEGER type" }
integer xx(nn) /1/ ! { dg-error "array with nonconstant bounds" }
integer xxx(rr) /1.0/ ! { dg-error "must be constant of INTEGER type" }
end structure
end
|
