From b38b42d2050443cd7addb3cf7ba44a9c0c46258f Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 14 May 1998 09:00:31 +0000 Subject: [PATCH] Call abort where appropriate. From-SVN: r19742 --- gcc/testsuite/g77.f-torture/execute/cabs.f | 4 ++-- gcc/testsuite/g77.f-torture/execute/claus.f | 8 ++++---- .../g77.f-torture/execute/complex_1.f | 8 ++++---- gcc/testsuite/g77.f-torture/execute/cpp.F | 2 +- gcc/testsuite/g77.f-torture/execute/dcomplex.f | 8 ++++---- gcc/testsuite/g77.f-torture/execute/dnrm2.f | 2 +- gcc/testsuite/g77.f-torture/execute/erfc.f | 12 ++++++------ gcc/testsuite/g77.f-torture/execute/exp.f | 2 +- gcc/testsuite/g77.f-torture/execute/le.f | 18 +++++++++--------- gcc/testsuite/g77.f-torture/execute/short.f | 8 ++++---- 10 files changed, 36 insertions(+), 36 deletions(-) diff --git a/gcc/testsuite/g77.f-torture/execute/cabs.f b/gcc/testsuite/g77.f-torture/execute/cabs.f index 85ee44e573c..61fd263620b 100644 --- a/gcc/testsuite/g77.f-torture/execute/cabs.f +++ b/gcc/testsuite/g77.f-torture/execute/cabs.f @@ -6,9 +6,9 @@ z0 = cmplx(3.,4.) r0 = cabs(z0) - if (r0 .ne. 5.) call exit(1) + if (r0 .ne. 5.) call abort z1 = dcmplx(3.d0,4.d0) r1 = zabs(z1) - if (r1 .ne. 5.d0) call exit(1) + if (r1 .ne. 5.d0) call abort end diff --git a/gcc/testsuite/g77.f-torture/execute/claus.f b/gcc/testsuite/g77.f-torture/execute/claus.f index 051fdff59a9..bccef7f4090 100644 --- a/gcc/testsuite/g77.f-torture/execute/claus.f +++ b/gcc/testsuite/g77.f-torture/execute/claus.f @@ -6,8 +6,8 @@ k=1 n=2 ind=k-n+2 - if (ind /= 1) call exit(1) - if (ab(ind) /= 1) call exit(1) - if (k-n+2 /= 1) call exit(1) - if (ab(k-n+2) /= 1) call exit(1) + if (ind /= 1) call abort + if (ab(ind) /= 1) call abort + if (k-n+2 /= 1) call abort + if (ab(k-n+2) /= 1) call abort END diff --git a/gcc/testsuite/g77.f-torture/execute/complex_1.f b/gcc/testsuite/g77.f-torture/execute/complex_1.f index 0569be0cdfc..77da6359f72 100644 --- a/gcc/testsuite/g77.f-torture/execute/complex_1.f +++ b/gcc/testsuite/g77.f-torture/execute/complex_1.f @@ -3,16 +3,16 @@ z0 = cmplx(0.,.5) z1 = 1./z0 - if (z1 .ne. cmplx(0.,-2)) call exit(1) + if (z1 .ne. cmplx(0.,-2)) call abort z0 = 10.*z0 - if (z0 .ne. cmplx(0.,5.)) call exit(1) + if (z0 .ne. cmplx(0.,5.)) call abort z2 = cmplx(1.,2.) z1 = z0/z2 - if (z1 .ne. cmplx(2.,1.)) call exit(1) + if (z1 .ne. cmplx(2.,1.)) call abort z1 = z0*z2 - if (z1 .ne. cmplx(-10.,5.)) call exit(1) + if (z1 .ne. cmplx(-10.,5.)) call abort end diff --git a/gcc/testsuite/g77.f-torture/execute/cpp.F b/gcc/testsuite/g77.f-torture/execute/cpp.F index 9156cd5b6b1..fc9386b5c92 100644 --- a/gcc/testsuite/g77.f-torture/execute/cpp.F +++ b/gcc/testsuite/g77.f-torture/execute/cpp.F @@ -1,5 +1,5 @@ ! Some versions of cpp will delete "//'World' as a C++ comment. character*40 title title = 'Hello '//'World' - if (title .ne. 'Hello World') stop 1 + if (title .ne. 'Hello World') call abort end diff --git a/gcc/testsuite/g77.f-torture/execute/dcomplex.f b/gcc/testsuite/g77.f-torture/execute/dcomplex.f index 7848ab38f99..a46f03aabef 100644 --- a/gcc/testsuite/g77.f-torture/execute/dcomplex.f +++ b/gcc/testsuite/g77.f-torture/execute/dcomplex.f @@ -3,16 +3,16 @@ z0 = dcmplx(0.,.5) z1 = 1./z0 - if (z1 .ne. dcmplx(0.,-2)) call exit(1) + if (z1 .ne. dcmplx(0.,-2)) call abort z0 = 10.*z0 - if (z0 .ne. dcmplx(0.,5.)) call exit(1) + if (z0 .ne. dcmplx(0.,5.)) call abort z2 = cmplx(1.,2.) z1 = z0/z2 - if (z1 .ne. dcmplx(2.,1.)) call exit(1) + if (z1 .ne. dcmplx(2.,1.)) call abort z1 = z0*z2 - if (z1 .ne. dcmplx(-10.,5.)) call exit(1) + if (z1 .ne. dcmplx(-10.,5.)) call abort end diff --git a/gcc/testsuite/g77.f-torture/execute/dnrm2.f b/gcc/testsuite/g77.f-torture/execute/dnrm2.f index 9668966ac94..c69608786b9 100644 --- a/gcc/testsuite/g77.f-torture/execute/dnrm2.f +++ b/gcc/testsuite/g77.f-torture/execute/dnrm2.f @@ -19,7 +19,7 @@ c current Netlib BLAS.) do i=1,100 a(i)=0.D0 enddo - if (dnrm2(100,a,1) .ne. 0.0) call exit(1) + if (dnrm2(100,a,1) .ne. 0.0) call abort end double precision function dnrm2 ( n, dx, incx) diff --git a/gcc/testsuite/g77.f-torture/execute/erfc.f b/gcc/testsuite/g77.f-torture/execute/erfc.f index b3cf7f6b36f..7bb1a281e22 100644 --- a/gcc/testsuite/g77.f-torture/execute/erfc.f +++ b/gcc/testsuite/g77.f-torture/execute/erfc.f @@ -3,27 +3,27 @@ c============================================== test.f real*8 x1, y1 x=0. y = erfc(x) - if (y .ne. 1.) call exit(1) + if (y .ne. 1.) call abort x=1.1 y = erfc(x) - if (abs(y - .1197949) .ge. 1.e-6) call exit(1) + if (abs(y - .1197949) .ge. 1.e-6) call abort x=10 y = erfc(x) - if (y .gt. 1.5e-44) call exit(1) + if (y .gt. 1.5e-44) call abort x1=0. y1 = erfc(x1) - if (y1 .ne. 1.) call exit(1) + if (y1 .ne. 1.) call abort x1=1.1d0 y1 = erfc(x1) - if (abs(y1 - .1197949d0) .ge. 1.d-6) call exit(1) + if (abs(y1 - .1197949d0) .ge. 1.d-6) call abort x1=10 y1 = erfc(x1) - if (y1 .gt. 1.5d-44) call exit(1) + if (y1 .gt. 1.5d-44) call abort end c================================================= !output: diff --git a/gcc/testsuite/g77.f-torture/execute/exp.f b/gcc/testsuite/g77.f-torture/execute/exp.f index 6ae7ae354f9..de388f181b0 100644 --- a/gcc/testsuite/g77.f-torture/execute/exp.f +++ b/gcc/testsuite/g77.f-torture/execute/exp.f @@ -1,3 +1,3 @@ a = 2**-2*1. - if (a .ne. .25) call exit(1) + if (a .ne. .25) call abort end diff --git a/gcc/testsuite/g77.f-torture/execute/le.f b/gcc/testsuite/g77.f-torture/execute/le.f index e315671760e..74e42750d55 100644 --- a/gcc/testsuite/g77.f-torture/execute/le.f +++ b/gcc/testsuite/g77.f-torture/execute/le.f @@ -8,22 +8,22 @@ n = 5 t = (n > foo) - if (t .neqv. .true.) call exit(1) + if (t .neqv. .true.) call abort t = (n >= foo) - if (t .neqv. .true.) call exit(1) + if (t .neqv. .true.) call abort t = (n < foo) - if (t .neqv. .false.) call exit(1) + if (t .neqv. .false.) call abort t = (n <= 5) - if (t .neqv. .true.) call exit(1) + if (t .neqv. .true.) call abort t = (n >= 5 ) - if (t .neqv. .true.) call exit(1) + if (t .neqv. .true.) call abort t = (n == 5) - if (t .neqv. .true.) call exit(1) + if (t .neqv. .true.) call abort t = (n /= 5) - if (t .neqv. .false.) call exit(1) + if (t .neqv. .false.) call abort t = (n /= foo) - if (t .neqv. .true.) call exit(1) + if (t .neqv. .true.) call abort t = (n == foo) - if (t .neqv. .false.) call exit(1) + if (t .neqv. .false.) call abort end diff --git a/gcc/testsuite/g77.f-torture/execute/short.f b/gcc/testsuite/g77.f-torture/execute/short.f index b5964b51489..89ae273891c 100644 --- a/gcc/testsuite/g77.f-torture/execute/short.f +++ b/gcc/testsuite/g77.f-torture/execute/short.f @@ -46,11 +46,11 @@ c another four-way average of rhobar 270 continue do k=0,N - if (yzin1(k) .ne. yzin2(k)) call exit(1) + if (yzin1(k) .ne. yzin2(k)) call abort enddo - if (yzin1(0) .ne. -1371.) call exit(1) - if (yzin1(1) .ne. -685.5) call exit(1) - if (yzin1(2) .ne. 0.) call exit(1) + if (yzin1(0) .ne. -1371.) call abort + if (yzin1(1) .ne. -685.5) call abort + if (yzin1(2) .ne. 0.) call abort return end -- 2.30.2