From: rguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 17 Nov 2014 09:38:48 +0000 (+0000)
Subject: 2014-11-17  Richard Biener  <rguenther@suse.de>
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=afdbc7c63b62d272fd37c0649603d49c73f89baf;p=thirdparty%2Fgcc.git

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

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


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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e0333c9fa7ca..eefdf3b29bc4 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 000000000000..002e5bd5e81e
--- /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