URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.31.4.f90] - Diff between revs 273 and 338

Rev 273	Rev 338
`! { dg-do run }`	`! { dg-do run }`
`MODULE M`	`MODULE M`
`INTRINSIC MAX`	`INTRINSIC MAX`
`END MODULE M`	`END MODULE M`
`PROGRAM A31_4`	`PROGRAM A31_4`
`USE M, REN => MAX`	`USE M, REN => MAX`
`N=0`	`N=0`
`!$OMP PARALLEL DO REDUCTION(REN: N) ! still does MAX`	`!$OMP PARALLEL DO REDUCTION(REN: N) ! still does MAX`
`DO I = 1, 100`	`DO I = 1, 100`
`N = MAX(N,I)`	`N = MAX(N,I)`
`END DO`	`END DO`
`END PROGRAM A31_4`	`END PROGRAM A31_4`

`! { dg-final { cleanup-modules "m" } }`	`! { dg-final { cleanup-modules "m" } }`