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

Rev 273	Rev 519
`! { dg-do compile }`	`! { dg-do compile }`
`SUBROUTINE WORK(N)`	`SUBROUTINE WORK(N)`
`INTEGER N`	`INTEGER N`
`END SUBROUTINE WORK`	`END SUBROUTINE WORK`
`SUBROUTINE SUB3(N)`	`SUBROUTINE SUB3(N)`
`INTEGER N`	`INTEGER N`
`CALL WORK(N)`	`CALL WORK(N)`
`!$OMP BARRIER`	`!$OMP BARRIER`
`CALL WORK(N)`	`CALL WORK(N)`
`END SUBROUTINE SUB3`	`END SUBROUTINE SUB3`
`SUBROUTINE SUB2(K)`	`SUBROUTINE SUB2(K)`
`INTEGER K`	`INTEGER K`
`!$OMP PARALLEL SHARED(K)`	`!$OMP PARALLEL SHARED(K)`
`CALL SUB3(K)`	`CALL SUB3(K)`
`!$OMP END PARALLEL`	`!$OMP END PARALLEL`
`END SUBROUTINE SUB2`	`END SUBROUTINE SUB2`
`SUBROUTINE SUB1(N)`	`SUBROUTINE SUB1(N)`
`INTEGER N`	`INTEGER N`
`INTEGER I`	`INTEGER I`
`!$OMP PARALLEL PRIVATE(I) SHARED(N)`	`!$OMP PARALLEL PRIVATE(I) SHARED(N)`
`!$OMP DO`	`!$OMP DO`
`DO I = 1, N`	`DO I = 1, N`
`CALL SUB2(I)`	`CALL SUB2(I)`
`END DO`	`END DO`
`!$OMP END PARALLEL`	`!$OMP END PARALLEL`
`END SUBROUTINE SUB1`	`END SUBROUTINE SUB1`
`PROGRAM A15`	`PROGRAM A15`
`CALL SUB1(2)`	`CALL SUB1(2)`
`CALL SUB2(2)`	`CALL SUB2(2)`
`CALL SUB3(2)`	`CALL SUB3(2)`
`END PROGRAM A15`	`END PROGRAM A15`