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