1! { dg-do run }
2! PR 84931 - long array constructors with type conversion were not
3! handled correctly.
4program test
5 implicit none
6 integer, parameter :: n = 2**16
7 real, dimension(n) :: y
8 integer :: i
9 y = (/ (1, i=1, n) /)
10 if (y(2) /= 1) stop 1
11end program test
12