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

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 6d4b4f72400afba34f8ad3041b6d56a2ba9700f2..a982c3afef43ad6fe3960d5a57e7d7895d84052b 100644 (file)
--- 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 a411db4b0762e2f2db081818f275055fe8bb49f9..30148f1b20023430ee1481692073f088bb04310c 100644 (file)
--- 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 a29f1b59a265db3c7142d23ca41677c17c07d95a..d770b910e1a0d75f927b495bbcdeb916e2405704 100644 (file)
--- 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