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

Subversion Repositories openrisc

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

Rev 273	Rev 519
`! { dg-do run }`	`! { dg-do run }`
`PROGRAM A26`	`PROGRAM A26`
`INTEGER I, J`	`INTEGER I, J`
`I=1`	`I=1`
`J=2`	`J=2`
`!$OMP PARALLEL PRIVATE(I) FIRSTPRIVATE(J)`	`!$OMP PARALLEL PRIVATE(I) FIRSTPRIVATE(J)`
`I=3`	`I=3`
`J=J+2`	`J=J+2`
`!$OMP END PARALLEL`	`!$OMP END PARALLEL`
`PRINT *, I, J ! I and J are undefined`	`PRINT *, I, J ! I and J are undefined`
`END PROGRAM A26`	`END PROGRAM A26`