array_constructor_52.f90\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/array_constructor_52.f90

blob: 63581acf9898deeb55402b73214906fa62c8f306 (plain)

! { 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