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