diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.oacc-fortran/common-block-3.f90')
-rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/common-block-3.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/common-block-3.f90 b/libgomp/testsuite/libgomp.oacc-fortran/common-block-3.f90 index 5a68b485b1e..3c59b66246b 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/common-block-3.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/common-block-3.f90 @@ -16,7 +16,7 @@ subroutine validate common /BLOCK/ x, y, z, j do i = 1, n - if (abs(x(i) - i - z) .ge. 0.0001) call abort + if (abs(x(i) - i - z) .ge. 0.0001) stop 1 end do end subroutine validate @@ -135,5 +135,5 @@ program main end do !$acc end parallel loop - if (j .ne. n) call abort + if (j .ne. n) stop 2 end program main |