Call abort where appropriate.

From-SVN: r19742

diff --git a/gcc/testsuite/g77.f-torture/execute/cabs.f b/gcc/testsuite/g77.f-torture/execute/cabs.f
index 85ee44e573cd166e2eb59d35e55ee499b453b94a..61fd263620b64ba408b5ce5929d0deaa14c65fd0 100644 (file)
--- 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 051fdff59a9f6a1ba9dc0d3cb7e98907033ff9eb..bccef7f4090b287775b27bc35b9e617f0cf6e23d 100644 (file)
--- 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 0569be0cdfc307ea8afd46e85c98e42c06fc3ef3..77da6359f7207c1e90c0df77242fc089df2fb1bd 100644 (file)
--- 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 9156cd5b6b1e6d57f390e0a13ae6db4c9a737729..fc9386b5c921da5d9c4c035ccdc0bb89e9ea5c47 100644 (file)
--- 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 7848ab38f99c38bb12dcfa589cee2bdae02517ca..a46f03aabef0c89f4457e106d8e013ea4f6e6701 100644 (file)
--- 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 9668966ac940591d468ca0e69055ee7632284f91..c69608786b9f308febd6bc5bbfc8ecfd68d7d201 100644 (file)
--- 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 b3cf7f6b36f23581436bd16782130b0ddef46e7a..7bb1a281e227e866b6887e30a3e893cb14158355 100644 (file)
--- 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 6ae7ae354f9aadc5ef772e03e3c25fe79c38ad5e..de388f181b09cb85ed7f717fd2d55f5bb96dde81 100644 (file)
--- 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 e315671760ec2ca72e7a53f7fa08406b81cebbe0..74e42750d55f3f72075236ca28d8ba5563ba4e73 100644 (file)
--- 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 b5964b51489c1d02d2836e213200755782e85950..89ae273891cd7d9ddbc6630603dae438329d0356 100644 (file)
--- 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