blob: 78db344e0fc859adfdbcf0d518830eeb03c8d8be (
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 "array with nonconstant bounds" }
integer xx(nn) /1/ ! { dg-error "array with nonconstant bounds" }
integer xxx(rr) /1.0/ ! { dg-error "array with nonconstant bounds" }
end structure
end
|