[openacc, libgomp] Use GOMP_ASYNC_SYNC in GOACC_declare

2018-05-09  Tom de Vries  <tom@codesourcery.com>

	PR libgomp/82901
	* oacc-parallel.c (GOACC_declare): Use GOMP_ASYNC_SYNC as async argument
	to GOACC_enter_exit_data.

From-SVN: r260085

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 569c0f1c8592b8e4e0e126929473e4d44208efef..ff9c7a7b26973ceb2ed0238fe3b3e12b8a1aa98d 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,9 @@
+2018-05-09  Tom de Vries  <tom@codesourcery.com>
+
+       PR libgomp/82901
+       * oacc-parallel.c (GOACC_declare): Use GOMP_ASYNC_SYNC as async argument
+       to GOACC_enter_exit_data.
+
 2018-05-09  Tom de Vries  <tom@codesourcery.com>
 
        PR libgomp/83792

diff --git a/libgomp/oacc-parallel.c b/libgomp/oacc-parallel.c
index cfba5816036e5342a8a1aa56922c76ae7c6ab4a9..9eae43131f807177f9623594dbd901006d6cade5 100644 (file)
--- a/libgomp/oacc-parallel.c
+++ b/libgomp/oacc-parallel.c
@@ -524,7 +524,7 @@ GOACC_declare (int device, size_t mapnum,
          case GOMP_MAP_POINTER:
          case GOMP_MAP_DELETE:
            GOACC_enter_exit_data (device, 1, &hostaddrs[i], &sizes[i],
-                                  &kinds[i], 0, 0);
+                                  &kinds[i], GOMP_ASYNC_SYNC, 0);
            break;
 
          case GOMP_MAP_FORCE_DEVICEPTR:
@@ -533,19 +533,19 @@ GOACC_declare (int device, size_t mapnum,
          case GOMP_MAP_ALLOC:
            if (!acc_is_present (hostaddrs[i], sizes[i]))
              GOACC_enter_exit_data (device, 1, &hostaddrs[i], &sizes[i],
-                                    &kinds[i], 0, 0);
+                                    &kinds[i], GOMP_ASYNC_SYNC, 0);
            break;
 
          case GOMP_MAP_TO:
            GOACC_enter_exit_data (device, 1, &hostaddrs[i], &sizes[i],
-                                  &kinds[i], 0, 0);
+                                  &kinds[i], GOMP_ASYNC_SYNC, 0);
 
            break;
 
          case GOMP_MAP_FROM:
            kinds[i] = GOMP_MAP_FORCE_FROM;
            GOACC_enter_exit_data (device, 1, &hostaddrs[i], &sizes[i],
-                                  &kinds[i], 0, 0);
+                                  &kinds[i], GOMP_ASYNC_SYNC, 0);
            break;
 
          case GOMP_MAP_FORCE_PRESENT: