gcc/testsuite/gfortran.dg/array_constructor_52.f90 - gcc - Git at Google

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