gcc/testsuite/gfortran.dg/array_constructor_1.f90

   1 ! { dg-do run }
   2 ! Check that [...] style array constructors work
   3 program bracket_array_constructor
   4     implicit none
   5     integer :: a(4), i
   6
   7     a = [ 1, 2, 3, 4 ]
   8     do i = 1, size(a)
   9         if (a(i) /= i) call abort()
  10     end do
  11
  12     a = [ (/ 1, 2, 3, 4 /) ]
  13     do i = 1, size(a)
  14         if (a(i) /= i) call abort()
  15     end do
  16
  17 end program bracket_array_constructor