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

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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/pr63883.f90

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