Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/actual_array_constructor_3.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! Tests the fix for pr28914, in which array constructors using the loop ! variable within a do loop for the implied do loop of the constructor ! would result in a corrupted do loop counter. ! ! Based on the testscase by Ed Korkven <kornkven@arsc.edu> ! program pr28914 implicit none integer n, i parameter (n = 66000) ! Problem manifests for n > 65535 double precision a(n), summation summation = 0.0 do i = 1, 1 a = (/ (i, i = 1, n) /) ! This is legal and was broken a = sqrt(a) summation = SUM(a) enddo summation = abs(summation - 11303932.9138271_8) if (summation.gt.0.00001) call abort() end program pr28914