gcc/libgomp/testsuite/libgomp.oacc-fortran/pr84028.f90
Tom de Vries e77a1236a7 [nvptx, PR84028] Add exit insn after noreturn call for neutered workers
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
2018-01-25 10:25:14 +00:00

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