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] - Rev 694
Compare with Previous | Blame | 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