diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.oacc-fortran/host_data-4.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/host_data-4.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/host_data-4.f90 b/libgomp/testsuite/libgomp.oacc-fortran/host_data-4.f90 index 6e379b5485b..e81a8b292c1 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/host_data-4.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/host_data-4.f90 @@ -33,7 +33,7 @@ contains real*4 :: a(n), b(n) do i = 1, N - if (abs(a(i) - b(i)) > 0.0001) call abort + if (abs(a(i) - b(i)) > 0.0001) stop 1 end do end subroutine validate_results end module cublas |