From da465eba0090c5da4f04bfa91cd2e1c127e982c4 Mon Sep 17 00:00:00 2001
From: Christian Munley <chrismun@login22.chn>
Date: Wed, 7 Jun 2023 10:43:49 -0700
Subject: [PATCH] addressed issue #39 : added wait directive before exit delete
 directive. also addressed failing acc copyin async test. still may be more
 issues related to 39, wouldn't close yet.

---
 Tests/acc_copyin_async.c          | 1 -
 Tests/acc_delete_finalize_async.c | 4 +---
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/Tests/acc_copyin_async.c b/Tests/acc_copyin_async.c
index af2dfd4..f8f84e9 100644
--- 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
index fbf0fa2..7b62e5e 100644
--- 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){