This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH] Testcase for PR63898
- From: Richard Biener <rguenther at suse dot de>
- To: gcc-patches at gcc dot gnu dot org
- Date: Mon, 17 Nov 2014 10:31:21 +0100 (CET)
- Subject: [PATCH] Testcase for PR63898
- Authentication-results: sourceware.org; auth=none
PR63883 had a nice small testcase, applied.
Richard.
2014-11-17 Richard Biener <rguenther@suse.de>
PR middle-end/63898
* gfortran.dg/pr63883.f90: New testcase.
Index: gcc/testsuite/gfortran.dg/pr63883.f90
===================================================================
--- gcc/testsuite/gfortran.dg/pr63883.f90 (revision 0)
+++ gcc/testsuite/gfortran.dg/pr63883.f90 (working copy)
@@ -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