diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90 index b39414fe3e5..8a2ec2cc97e 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/subarrays-1.f90 @@ -32,7 +32,7 @@ program subarrays !$acc end parallel do i = 1, n - if (a(i) .ne. b(i)) call abort + if (a(i) .ne. b(i)) STOP 1 end do call check (a, b, n) @@ -92,6 +92,6 @@ subroutine check (a, b, n) integer :: i do i = 1, n - if (a(i) .ne. b(i)) call abort + if (a(i) .ne. b(i)) STOP 2 end do end subroutine check |