1 ! { dg-options "-fgraphite-identity -g -O3 -ffast-math" }
4 SUBROUTINE CALERF(ARG,RESULT,JINT)
5 DIMENSION A(5),B(4),C(9),D(8),P(6),Q(5)
8 XNUM = (XNUM + A(I)) * YSQ
9 XDEN = (XDEN + B(I)) * YSQ
11 RESULT = X * (XNUM + A(4)) / (XDEN + B(4))
15 ! { dg-final { cleanup-modules "erf_fn" } }