[gcc r16-736] Fix libgomp.oacc-fortran/lib-13.f90 async bug

[Thomas Schwinge via Gcc-cvs]

https://gcc.gnu.org/g:7ef9cb4caf01f2a2851acacbe9b326ca8ed72c30

commit r16-736-g7ef9cb4caf01f2a2851acacbe9b326ca8ed72c30
Author: Julian Brown <jul...@codesourcery.com>
Date:   Tue Sep 3 07:57:05 2019 -0700

    Fix libgomp.oacc-fortran/lib-13.f90 async bug
    
            libgomp/
            * testsuite/libgomp.oacc-fortran/lib-13.f90: End data region after
            wait API calls.

Diff:
---
 libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90 
b/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90
index deb2c2886048..f6bd27a4701c 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90
@@ -19,11 +19,10 @@ program main
         end do
       !$acc end parallel
     end do
-  !$acc end data
 
   call acc_wait_all_async (nprocs + 1)
-
   call acc_wait (nprocs + 1)
+  !$acc end data
 
   if (acc_async_test (1) .neqv. .TRUE.) stop 1
   if (acc_async_test (2) .neqv. .TRUE.) stop 2