summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-mathematical.f
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/f90-intrinsic-mathematical.f')
-rw-r--r--gcc/testsuite/gfortran.dg/g77/f90-intrinsic-mathematical.f2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-mathematical.f b/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-mathematical.f
index bb984999412..d151fd0a38d 100644
--- a/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-mathematical.f
+++ b/gcc/testsuite/gfortran.dg/g77/f90-intrinsic-mathematical.f
@@ -85,7 +85,7 @@ c TANH - Section 13.13.106
call c_r(TANH(1.0),0.76159416,'TANH(real)')
call c_d(TANH(1.d0),0.76159416d0,'TANH(double)')
- if ( fail ) call abort()
+ if ( fail ) STOP 1
end
subroutine failure(label)