gcc-4.9/gcc/testsuite/gfortran.dg/array_constructor_5.f90


1
2
3
4
5
6
7
8
9
10
11

! { dg-do run }
! PR22327
program array_constructor
    implicit none
    integer :: a(6), i
    i = 6
    a = (/ 1, 2, 3, 4, 5, i /)
    do i = 1, 6
        if (a(i) /= i) call abort()
    end do
end program array_constructor