OSDN Git Service

2006-09-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 10 Sep 2006 04:58:29 +0000 (04:58 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 10 Sep 2006 04:58:29 +0000 (04:58 +0000)
PR fortran/28914
* gfortran.dg/actual_array_constructor_3.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@116809 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/actual_array_constructor_3.f90 [new file with mode: 0644]

index cd0f6f7..3d877ed 100644 (file)
@@ -1,3 +1,8 @@
+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
diff --git a/gcc/testsuite/gfortran.dg/actual_array_constructor_3.f90 b/gcc/testsuite/gfortran.dg/actual_array_constructor_3.f90
new file mode 100644 (file)
index 0000000..5b0d28a
--- /dev/null
@@ -0,0 +1,25 @@
+! { 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
+
+