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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [pr27416-1.f90] - Diff between revs 38 and 154

Rev 38	Rev 154
`! PR middle-end/27416`	`! PR middle-end/27416`
`! { dg-do run }`	`! { dg-do run }`

`integer :: j`	`integer :: j`
`j = 6`	`j = 6`
`!$omp parallel num_threads (4)`	`!$omp parallel num_threads (4)`
`call foo (j)`	`call foo (j)`
`!$omp end parallel`	`!$omp end parallel`
`if (j.ne.6+16) call abort`	`if (j.ne.6+16) call abort`
`end`	`end`

`subroutine foo (j)`	`subroutine foo (j)`
`integer :: i, j`	`integer :: i, j`

`!$omp do firstprivate (j) lastprivate (j)`	`!$omp do firstprivate (j) lastprivate (j)`
`do i = 1, 16`	`do i = 1, 16`
`if (i.eq.16) j = j + i`	`if (i.eq.16) j = j + i`
`end do`	`end do`
`end subroutine foo`	`end subroutine foo`