Message ID | 20180726075902.iv63pvskgthjijcy@delia |
---|---|
State | New |
Headers | show |
Series | [committed,libgomp,openacc,testsuite] Fix async logic in lib-12.f90 | expand |
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/lib-12.f90 b/libgomp/testsuite/libgomp.oacc-fortran/lib-12.f90 index e307dfde374..6912f67d444 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/lib-12.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/lib-12.f90 @@ -1,5 +1,4 @@ ! { dg-do run } -! { dg-xfail-run-if "TODO" { openacc_nvidia_accel_selected } { "-O0" "-O1" } { "" } } program main use openacc @@ -18,10 +17,9 @@ program main call acc_wait_async (0, 1) - if (acc_async_test (0) .neqv. .TRUE.) call abort + call acc_wait (1) + if (acc_async_test (0) .neqv. .TRUE.) call abort if (acc_async_test (1) .neqv. .TRUE.) call abort - call acc_wait (1) - end program