e77a1236a7
2018-01-25 Tom de Vries <tom@codesourcery.com> PR target/84028 * config/nvptx/nvptx.c (nvptx_single): Add exit insn after noreturn call for neutered workers. * testsuite/libgomp.oacc-fortran/pr84028.f90: New test. From-SVN: r257046
26 lines
328 B
Fortran
26 lines
328 B
Fortran
! { dg-do run }
|
|
|
|
program foo
|
|
integer :: a(3,3,3), ll, lll
|
|
|
|
a = 1
|
|
|
|
!$acc parallel num_gangs(1) num_workers(2)
|
|
|
|
if (any(a(1:3,1:3,1:3).ne.1)) call abort
|
|
|
|
do ll=1,3
|
|
|
|
!$acc loop vector
|
|
do lll=1,3
|
|
a(1,ll,lll) = 2
|
|
enddo
|
|
|
|
enddo
|
|
|
|
if (a(1,1,1).ne.2) call abort
|
|
|
|
!$acc end parallel
|
|
|
|
end program foo
|