Fix PR42186.
2009-12-17 Sebastian Pop <sebastian.pop@amd.com>
PR middle-end/42186
* testsuite/gfortran.dg/graphite/pr42186.f90: New.
From-SVN: r155420
+2009-12-17 Sebastian Pop <sebastian.pop@amd.com>
+
+ PR middle-end/42186
+ * testsuite/gfortran.dg/graphite/pr42186.f90: New.
+
2009-12-17 Sebastian Pop <sebastian.pop@amd.com>
PR middle-end/42205
--- /dev/null
+! { 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