re PR fortran/28914 (Code inside loop hangs; outside loop runs normally; runs OK…

re PR fortran/28914 (Code inside loop hangs; outside loop runs normally; runs OK on other compilers)

2006-09-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/28914
	* gfortran.dg/actual_array_constructor_3.f90: New test.

From-SVN: r116809

gcc/testsuite/ChangeLog

+2006-09-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/28914
+	* gfortran.dg/actual_array_constructor_3.f90: New test.
+
 2006-09-09  Paolo Bonzini  <bonzini@gnu.org>
 
 	PR testsuite/26778

gcc/testsuite/gfortran.dg/actual_array_constructor_3.f90

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