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.26.1.f90] - Diff between revs 273 and 338

Rev 273	Rev 338
`! { 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`