URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42186.f90] - Blame information for rev 862

Go to most recent revision | Details | Compare with Previous | View Log


! { 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

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-options "-fgraphite-identity -g -O3 -ffast-math" }`
2			`MODULE erf_fn`
3			`CONTAINS`
4			`SUBROUTINE CALERF(ARG,RESULT,JINT)`
5			`DIMENSION A(5),B(4),C(9),D(8),P(6),Q(5)`
6			`IF (Y <= THRESH) THEN`
7			`DO I = 1, 3`
8			`XNUM = (XNUM + A(I)) * YSQ`
9			`XDEN = (XDEN + B(I)) * YSQ`
10			`END DO`
11			`RESULT = X * (XNUM + A(4)) / (XDEN + B(4))`
12			`END IF`
13			`END SUBROUTINE CALERF`
14			`END MODULE erf_fn`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42186.f90] - Blame information for rev 862