nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git] / gcc / testsuite / gfortran.dg / array_constructor_52.f90
blob63581acf9898deeb55402b73214906fa62c8f306
1 ! { dg-do run }
2 ! PR 84931 - long array constructors with type conversion were not
3 ! handled correctly.
4 program 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
11 end program test