diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/f90-intrinsic-numeric.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/f90-intrinsic-numeric.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-numeric.f b/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-numeric.f index 41bf59694d4..c8d7c569524 100644 --- a/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-numeric.f +++ b/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-numeric.f @@ -200,7 +200,7 @@ c SIGN - Section 13.13.96 call c_r(SIGN(-3.0,2.),3.,'SIGN(real,real)') call c_d(SIGN(-3.d0,2.d0),3.d0,'SIGN(double,double)') - if ( fail ) call abort() + if ( fail ) STOP 1 end subroutine failure(label) |