re PR tree-optimization/63898 (r217560 caused segfault building 462.libquantum from...

2014-11-17  Richard Biener  <rguenther@suse.de>

	PR middle-end/63898
	PR middle-end/63883
	* gfortran.dg/pr63883.f90: New testcase.

From-SVN: r217652

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e0333c9fa7ca45023029b04ea27713cd2bb8513b..eefdf3b29bc47db054acb221cf954d070a9bcfb6 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2014-11-17  Richard Biener  <rguenther@suse.de>
+
+       PR middle-end/63898
+       PR middle-end/63883
+       * gfortran.dg/pr63883.f90: New testcase.
+
 2014-11-17  Markus Trippelsdorf  <markus@trippelsdorf.de>
 
        PR ipa/63894

diff --git a/gcc/testsuite/gfortran.dg/pr63883.f90 b/gcc/testsuite/gfortran.dg/pr63883.f90
new file mode 100644 (file)
index 0000000..002e5bd
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr63883.f90
@@ -0,0 +1,13 @@
+! { dg-do compile }
+! { dg-additional-options "-ffast-math" }
+  SUBROUTINE influence_factor ( gftype, error )
+    INTEGER, PARAMETER :: dp=8
+    INTEGER :: k,n,lb(3),ub(3),dim,pt
+    COMPLEX(KIND=dp)                         :: b_m, exp_m, sum_m
+    DO k = 0, n-2
+       DO pt = lb (dim), ub (dim)
+          sum_m = CMPLX ( 0.0_dp, 0.0_dp,KIND=dp)
+          b_m = exp_m ** ( n - 1 ) / sum_m
+       END DO
+    END DO
+  END SUBROUTINE influence_factor