diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/udr9.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/udr9.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/udr9.f90 b/libgomp/testsuite/libgomp.fortran/udr9.f90 index a4fec1337c2..a8ba78d924d 100644 --- a/libgomp/testsuite/libgomp.fortran/udr9.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr9.f90 @@ -23,7 +23,7 @@ contains end subroutine subroutine initializer1 (x, y) integer :: x, y - if (y .ne. 3) call abort + if (y .ne. 3) STOP 1 x = y end subroutine end module udr9m1 @@ -61,5 +61,5 @@ end module udr9m2 j = j.add.iand (i, -4) d = d + dt(i) end do - if (d%x /= 5050 .or. j /= 4903) call abort + if (d%x /= 5050 .or. j /= 4903) STOP 2 end |