26 lines
666 B
Fortran
26 lines
666 B
Fortran
|
! { 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
|
||
|
|
||
|
|