diff options
| author | Richard Biener <rguenther@suse.de> | 2014-11-17 09:38:48 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2014-11-17 09:38:48 +0000 |
| commit | b9296a00e8528e7cd7a2539952884d2c81bf5383 (patch) | |
| tree | 43592e237eefe86801ed67ce2631cbcdc205ef04 | |
| parent | b1f07647d7253cd40ddb247aa202967fa022e917 (diff) | |
| download | gcc-b9296a00e8528e7cd7a2539952884d2c81bf5383.zip gcc-b9296a00e8528e7cd7a2539952884d2c81bf5383.tar.gz gcc-b9296a00e8528e7cd7a2539952884d2c81bf5383.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr63883.f90 | 13 |
2 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e0333c9..eefdf3b 100644 --- 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 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 |