procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add libgomp.oacc-fortran/lib-16-2.f90

Browse source 
This is a copy of libgomp.oacc-fortran/lib-16.f90, but does 'include
"openacc_lib.h"' instead of 'use openacc'.

	libgomp/
	* testsuite/libgomp.oacc-fortran/lib-16-2.f90: New file.

From-SVN: r266683
This commit is contained in:
Thomas Schwinge 2018-11-30 21:38:57 +01:00 • committed by Thomas Schwinge
parent 9cb95c07fa
commit c223608f54
3 changed files with 63 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
libgomp/ChangeLog
View file

@ -1,3 +1,7 @@
2018-11-30 Thomas Schwinge <thomas@codesourcery.com>
* testsuite/libgomp.oacc-fortran/lib-16-2.f90: New file.
2018-10-19 Richard Biener <rguenther@suse.de>
PR tree-optimization/88182

58
libgomp/testsuite/libgomp.oacc-fortran/lib-16-2.f90 Normal file
View file

@ -0,0 +1,58 @@
! See also "lib-16.f90".
! { dg-do run }
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
program main
implicit none
include "openacc_lib.h"
integer, parameter :: N = 256
integer, allocatable :: h(:)
integer :: i
integer :: async = 5
allocate (h(N))
do i = 1, N
h(i) = i
end do
call acc_copyin (h)
do i = 1, N
h(i) = i + i
end do
call acc_update_device_async (h, sizeof (h), async)
if (acc_is_present (h) .neqv. .TRUE.) call abort
h(:) = 0
call acc_copyout_async (h, sizeof (h), async)
call acc_wait (async)
do i = 1, N
if (h(i) /= i + i) call abort
end do
call acc_copyin (h, sizeof (h))
h(:) = 0
call acc_update_self_async (h, sizeof (h), async)
if (acc_is_present (h) .neqv. .TRUE.) call abort
do i = 1, N
if (h(i) /= i + i) call abort
end do
call acc_delete_async (h, async)
call acc_wait (async)
if (acc_is_present (h) .neqv. .FALSE.) call abort
end program

1
libgomp/testsuite/libgomp.oacc-fortran/lib-16.f90
View file

@ -1,3 +1,4 @@
! See also "lib-16-2.f90".
! { dg-do run }
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }