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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-options "-O3 -ffast-math" }
 
      COMMON /NONEQ / UNZOR
      DO ITS = 1, NTS
        DO JATOM = 1, NAT
          IF(IEF.EQ.5.OR.IEF.EQ.8)
     *       UNZOR = UNZOR + 8
        ENDDO
      ENDDO
      END

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-options "-O3 -ffast-math" }`
2
3			`COMMON /NONEQ / UNZOR`
4			`DO ITS = 1, NTS`
5			`DO JATOM = 1, NAT`
6			`IF(IEF.EQ.5.OR.IEF.EQ.8)`
7			`* UNZOR = UNZOR + 8`
8			`ENDDO`
9			`ENDDO`
10			`END`

Browse

Tools

Subversion Repositories openrisc

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