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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-13.f] - Blame information for rev 739

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


      DIMENSION FF(19)
      COMMON UF(9)
         CALL RYSNOD(K)
      DO 150 K=2,N
         JMAX=K-1
            DUM = ONE/FF(1)
            DO 110 J=1,JMAX
               DUM=DUM+POLY*POLY
  110       CONTINUE
  150 CONTINUE
         UF(K)=DUM/(ONE-DUM)
      END

Line No.	Rev	Author	Line
1	694	jeremybenn	`DIMENSION FF(19)`
2			`COMMON UF(9)`
3			`CALL RYSNOD(K)`
4			`DO 150 K=2,N`
5			`JMAX=K-1`
6			`DUM = ONE/FF(1)`
7			`DO 110 J=1,JMAX`
8			`DUM=DUM+POLY*POLY`
9			`110 CONTINUE`
10			`150 CONTINUE`
11			`UF(K)=DUM/(ONE-DUM)`
12			`END`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-13.f] - Blame information for rev 739