addressed issue OpenACCUserGroup#39 : added wait directive before exi…

…t delete directive. also addressed failing acc copyin async test. still may be more issues related to 39, wouldn't close yet.
chrismun · Jun 7, 2023 · da465eb · da465eb
1 parent 0f62993
commit da465eb
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/Tests/acc_copyin_async.c b/Tests/acc_copyin_async.c
@@ -170,7 +170,6 @@ int test4(){
             }
         }
         acc_copyin_async(c, n * sizeof(real_t), 1);
-        #pragma acc exit data delete(c[0:n]) async(1)
         #pragma acc parallel present(c[0:n]) async(1)
         {
             #pragma acc loop

diff --git a/Tests/acc_delete_finalize_async.c b/Tests/acc_delete_finalize_async.c
@@ -21,8 +21,6 @@ int test1(){
     }
 
     #pragma acc enter data copyin(a[0:n], b[0:n], d[0:n], e[0:n])
-    #pragma acc enter data copyin(a[0:n], b[0:n], d[0:n], e[0:n])
-
     #pragma acc data present(a[0:n], b[0:n], d[0:n], e[0:n]) copyout(c[0:n], f[0:n])
     {
         #pragma acc parallel async(1)
@@ -87,7 +85,6 @@ int test2(){
         }
 
         #pragma acc enter data copyin(a[0:n], b[0:n], c[0:n])
-        #pragma acc enter data copyin(c[0:n])
         #pragma acc data present(a[0:n], b[0:n], c[0:n])
         {
             #pragma acc parallel async(1)
@@ -110,6 +107,7 @@ int test2(){
                 }
             }
         }
+	#pragma acc wait
         #pragma acc exit data delete(a[0:n], b[0:n]) copyout(c[0:n])
 
         for (int x = 0; x < n; ++x){