summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/array_constructor_1.f90
blob: 0ba8ba0d0a44be18adfa1cce5c085916e56f2451 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
! { dg-do run }
! Check that [...] style array constructors work
program bracket_array_constructor
    implicit none
    integer :: a(4), i

    a = [ 1, 2, 3, 4 ]
    do i = 1, size(a)
        if (a(i) /= i) call abort()
    end do

    a = [ (/ 1, 2, 3, 4 /) ]
    do i = 1, size(a)
        if (a(i) /= i) call abort()
    end do

end program bracket_array_constructor