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

libgomp testsuite: add missing map clauses

Browse source 
* testsuite/libgomp.fortran/examples-4/device-1.f90 (e_57_1): Add
	mapping clauses to target constructs.
	* testsuite/libgomp.fortran/examples-4/device-3.f90 (e_57_3): Ditto.


Co-Authored-By: Alexander Monakov <amonakov@ispras.ru>

From-SVN: r242436
This commit is contained in:
Martin Jambor 2016-11-15 18:14:32 +01:00 • committed by Alexander Monakov
parent 5a65a911cc
commit 18d2ada84b
3 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
libgomp/ChangeLog
View file

@ -1,3 +1,10 @@
2016-11-15 Martin Jambor <mjambor@suse.cz>
Alexander Monakov <amonakov@ispras.ru>
* testsuite/libgomp.fortran/examples-4/device-1.f90 (e_57_1): Add
mapping clauses to target constructs.
* testsuite/libgomp.fortran/examples-4/device-3.f90 (e_57_3): Ditto.
2016-11-15 Matthias Klose <doko@ubuntu.com>
* configure: Regenerate.

12
libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90
View file

@ -9,12 +9,12 @@ program e_57_1
a = 100
b = 0
!$omp target if(a > 200 .and. a < 400)
!$omp target map(from: c) if(a > 200 .and. a < 400)
c = omp_is_initial_device ()
!$omp end target
!$omp target data map(to: b) if(a > 200 .and. a < 400)
!$omp target
!$omp target map(from: b, d)
b = 100
d = omp_is_initial_device ()
!$omp end target
@ -25,12 +25,12 @@ program e_57_1
a = a + 200
b = 0
!$omp target if(a > 200 .and. a < 400)
!$omp target map(from: c) if(a > 200 .and. a < 400)
c = omp_is_initial_device ()
!$omp end target
!$omp target data map(to: b) if(a > 200 .and. a < 400)
!$omp target
!$omp target map(from: b, d)
b = 100
d = omp_is_initial_device ()
!$omp end target
@ -41,12 +41,12 @@ program e_57_1
a = a + 200
b = 0
!$omp target if(a > 200 .and. a < 400)
!$omp target map(from: c) if(a > 200 .and. a < 400)
c = omp_is_initial_device ()
!$omp end target
!$omp target data map(to: b) if(a > 200 .and. a < 400)
!$omp target
!$omp target map(from: b, d)
b = 100
d = omp_is_initial_device ()
!$omp end target

4
libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90
View file

@ -8,13 +8,13 @@ program e_57_3
integer :: default_device
default_device = omp_get_default_device ()
!$omp target
!$omp target map(from: res)
res = omp_is_initial_device ()
!$omp end target
if (res) call abort
call omp_set_default_device (omp_get_num_devices ())
!$omp target
!$omp target map(from: res)
res = omp_is_initial_device ()
!$omp end target
if (.not. res) call abort