2 ! Tests the fix for pr28914, in which array constructors using the loop
3 ! variable within a do loop for the implied do loop of the constructor
4 ! would result in a corrupted do loop counter.
6 ! Based on the testscase by Ed Korkven <kornkven@arsc.edu>
11 parameter (n = 66000) ! Problem manifests for n > 65535
12 double precision a(n), summation
16 a = (/ (i, i = 1, n) /) ! This is legal and was broken
20 summation = abs(summation - 11303932.9138271_8)
22 if (summation.gt.0.00001) call abort()