gcc/testsuite/gfortran.dg/array_constructor_2.f90

   1 ! { dg-do compile }
   2 ! Check that array constructor delimiters match
   3 program bracket_array_constr_2
   4     implicit none
   5     integer :: a(4)
   6     a = (/ 1, 2, 3, 4 ] ! { dg-error "array constructor" }
   7     a = (/ [ 1, 2, 3, 4 /) ] ! { dg-error "array constructor" }
   8 end program bracket_array_constr_2