2 ! Check that [...] style array constructors work
3 program bracket_array_constructor
7 a = [ 1, 2, 3, 4 ] ! { dg-warning "array constructor" }
9 if (a(i) /= i) call abort()
12 a = [ (/ 1, 2, 3, 4 /) ] ! { dg-warning "array constructor" }
14 if (a(i) /= i) call abort()
17 end program bracket_array_constructor