Merge from trunk revision 257954.gccgo

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gccgo@257955 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 8 insertions, 8 deletions

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sign.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sign.f90
index fbc457d917c..f5e717853e1 100644
--- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sign.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sign.f90
@@ -6,26 +6,26 @@ program intrinsic_sign
 
    i = 2
    j = 3
-   if (sign (i, j) .ne. 2) call abort
+   if (sign (i, j) .ne. 2) STOP 1
    i = 4
    j = -5
-   if (sign (i, j) .ne. -4) call abort
+   if (sign (i, j) .ne. -4) STOP 2
    i = -6
    j = 7
-   if (sign (i, j) .ne. 6) call abort
+   if (sign (i, j) .ne. 6) STOP 3
    i = -8
    j = -9
-   if (sign (i, j) .ne. -8) call abort
+   if (sign (i, j) .ne. -8) STOP 4
    r = 1
    s = 2
-   if (sign (r, s) .ne. 1) call abort
+   if (sign (r, s) .ne. 1) STOP 5
    r = 1
    s = -2
-   if (sign (r, s) .ne. -1) call abort
+   if (sign (r, s) .ne. -1) STOP 6
    s = 0
-   if (sign (r, s) .ne. 1) call abort
+   if (sign (r, s) .ne. 1) STOP 7
    ! Will fail on machines which cannot represent negative zero.
    s = -s ! Negative zero
-   if (sign (r, s) .ne. -1) call abort
+   if (sign (r, s) .ne. -1) STOP 8
 end program