1! { dg-do run }
2! PR22327
3program array_constructor
4    implicit none
5    integer :: a(6), i
6    i = 6
7    a = (/ 1, 2, 3, 4, 5, i /)
8    do i = 1, 6
9        if (a(i) /= i) STOP 1
10    end do
11end program array_constructor
12