From d2a271ac6ff9029f8c2c014585e8b127c3fea0b5 Mon Sep 17 00:00:00 2001 From: Sebastian Pop Date: Wed, 23 Dec 2009 07:50:32 +0000 Subject: [PATCH] re PR debug/42186 ([graphite] internal compiler error: verify_ssa failed) Fix PR42186. 2009-12-17 Sebastian Pop PR middle-end/42186 * testsuite/gfortran.dg/graphite/pr42186.f90: New. From-SVN: r155420 --- gcc/ChangeLog.graphite | 5 +++++ gcc/testsuite/gfortran.dg/graphite/pr42186.f90 | 14 ++++++++++++++ 2 files changed, 19 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/graphite/pr42186.f90 diff --git a/gcc/ChangeLog.graphite b/gcc/ChangeLog.graphite index ac1c4d6cfab..4d7b11dec07 100644 --- a/gcc/ChangeLog.graphite +++ b/gcc/ChangeLog.graphite @@ -1,3 +1,8 @@ +2009-12-17 Sebastian Pop + + PR middle-end/42186 + * testsuite/gfortran.dg/graphite/pr42186.f90: New. + 2009-12-17 Sebastian Pop PR middle-end/42205 diff --git a/gcc/testsuite/gfortran.dg/graphite/pr42186.f90 b/gcc/testsuite/gfortran.dg/graphite/pr42186.f90 new file mode 100644 index 00000000000..9e488f4f189 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/graphite/pr42186.f90 @@ -0,0 +1,14 @@ +! { dg-options "-fgraphite-identity -g -O3 -ffast-math" } +MODULE erf_fn +CONTAINS + SUBROUTINE CALERF(ARG,RESULT,JINT) + DIMENSION A(5),B(4),C(9),D(8),P(6),Q(5) + IF (Y <= THRESH) THEN + DO I = 1, 3 + XNUM = (XNUM + A(I)) * YSQ + XDEN = (XDEN + B(I)) * YSQ + END DO + RESULT = X * (XNUM + A(4)) / (XDEN + B(4)) + END IF + END SUBROUTINE CALERF +END MODULE erf_fn -- 2.30.2