From fb366039a906e72f7724622f5befae03efb89aff Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 10 Sep 2006 04:58:29 +0000 Subject: [PATCH] re PR fortran/28914 (Code inside loop hangs; outside loop runs normally; runs OK on other compilers) 2006-09-09 Jerry DeLisle PR fortran/28914 * gfortran.dg/actual_array_constructor_3.f90: New test. From-SVN: r116809 --- gcc/testsuite/ChangeLog | 5 ++++ .../actual_array_constructor_3.f90 | 25 +++++++++++++++++++ 2 files changed, 30 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/actual_array_constructor_3.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index cd0f6f7e599..3d877ed4c4e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-09-09 Jerry DeLisle + + PR fortran/28914 + * gfortran.dg/actual_array_constructor_3.f90: New test. + 2006-09-09 Paolo Bonzini 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 index 00000000000..5b0d28a0d02 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/actual_array_constructor_3.f90 @@ -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 +! +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 + +