URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-dev/] [fsf-gcc-snapshot-1-mar-12/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [pr27416-1.f90] - Rev 847
Go to most recent revision | Compare with Previous | Blame | View Log
! PR middle-end/27416
! { dg-do run }
integer :: j
j = 6
!$omp parallel num_threads (4)
call foo (j)
!$omp end parallel
if (j.ne.6+16) call abort
end
subroutine foo (j)
integer :: i, j
!$omp do firstprivate (j) lastprivate (j)
do i = 1, 16
if (i.eq.16) j = j + i
end do
end subroutine foo
Go to most recent revision | Compare with Previous | Blame | View Log