1! { dg-do run } 2! Check that [...] style array constructors work 3program 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 17end program bracket_array_constructor 18