summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/array_constructor_5.f90
blob: 8b8f6b0414b36a2032a6c62c9ecea6e8bf0c5f46 (plain)
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