re PR debug/42186 ([graphite] internal compiler error: verify_ssa failed)
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
This commit is contained in:
parent
403ebc7e2c
commit
d2a271ac6f
@ -1,3 +1,8 @@
|
||||
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
|
||||
|
14
gcc/testsuite/gfortran.dg/graphite/pr42186.f90
Normal file
14
gcc/testsuite/gfortran.dg/graphite/pr42186.f90
Normal file
@ -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
|
Loading…
Reference in New Issue
Block a user