diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90 index 38660967aa7..054d5dd459a 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/firstprivate-1.f90 @@ -23,7 +23,7 @@ program firstprivate !$acc end parallel do i = 1, n - if (b(i) .ne. i + a) call abort () + if (b(i) .ne. i + a) STOP 1 end do !$acc data copy (a) @@ -37,6 +37,6 @@ program firstprivate !$acc end parallel !$acc end data - if (c .ne. 10) call abort () - if (d .ne. 5) call abort () + if (c .ne. 10) STOP 2 + if (d .ne. 5) STOP 3 end program firstprivate |