From 18d2ada84b8b162ba6961d18d9db3b743e17db32 Mon Sep 17 00:00:00 2001
From: Martin Jambor <mjambor@suse.cz>
Date: Tue, 15 Nov 2016 18:14:32 +0100
Subject: [PATCH] libgomp testsuite: add missing map clauses
* 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
---
libgomp/ChangeLog | 7 +++++++
.../libgomp.fortran/examples-4/device-1.f90 | 12 ++++++------
.../libgomp.fortran/examples-4/device-3.f90 | 4 ++--
3 files changed, 15 insertions(+), 8 deletions(-)
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 6d4b4f72400a..a982c3afef43 100644
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -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.
diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90
index a411db4b0762..30148f1b2002 100644
--- a/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90
+++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90
@@ -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
diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90
index a29f1b59a265..d770b910e1a0 100644
--- a/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90
+++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90
@@ -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
--
GitLab