1! { dg-do compile }
2! { dg-options "-fdec-structure" }
3!
4! PR fortran/78240
5!
6! Test a regression where an ICE occurred attempting to create array variables
7! with non-constant array-specs in legacy clist initializers.
8!
9! Error message update with patch for PR fortran/83633
10!
11program p
12  implicit none
13  integer :: nn
14  real :: rr
15  structure /s/
16    integer x(n)    /1/   ! { dg-error "array with nonconstant bounds" }
17    integer xx(nn)  /1/   ! { dg-error "array with nonconstant bounds" }
18    integer xxx(rr) /1.0/ ! { dg-error "array with nonconstant bounds" }
19  end structure
20end
21