Merge from mainline.

[official-gcc.git] / gcc / testsuite / gfortran.dg / array_constructor_5.f90

! { 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