gcc/testsuite/gfortran.dg/array_constructor_5.f90

   1 ! { dg-do run }
   2 ! PR22327
   3 program 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) call abort()
  10     end do
  11 end program array_constructor