Replace call to non-standard ABORT with STOP 1

PR19754_2.f90

@@ -8,15 +8,15 @@ program PR19754_2
    a = 1. ; b = 2. ;  i = 4
    c = b - floor( a / b )        ! this caused an ICE
    d = b - real(floor( a / b ))
-   if (any (c/=d)) call abort ()
+   if (any (c/=d)) stop 1
    j = aint(b) - floor( a / b )  ! this caused an ICE
-   if (any(real(j)/=d)) call abort ()
+   if (any(real(j)/=d)) stop 1
    c = i
-   if (any(real(i)/=c)) call abort ()
+   if (any(real(i)/=c)) stop 1
    c = i + b                     ! this caused an ICE 
    d = real(i) + b
-   if (any(c/=d)) call abort ()
+   if (any(c/=d)) stop 1
    j = i + aint (a)
    k = i + a                     ! this caused an ICE
-   if (any(j/=k)) call abort ()
+   if (any(j/=k)) stop 1
 end program PR19754_2

PR19872.f

@@ -11,10 +11,10 @@
       close(1)
       open(1,form='FORMATTED')
       read(1,*)i
-      if(i(1).ne.9.or.i(2).ne.8.or.i(3).ne.7.or.i(4).ne.6)call abort
+      if(i(1).ne.9.or.i(2).ne.8.or.i(3).ne.7.or.i(4).ne.6)stop 1
       read(1,*, end=200)i
 ! should only be able to read one line from the file
-      call abort
+      stop 1
  200  continue
       close(1,STATUS='delete')
       end

PR49268.f90

@@ -44,7 +44,7 @@ subroutine use_foo()
         do i=1,n
             do j=1,m
                boo=foo(i,j)+1.0
-               if (abs (boo - 2.0) .gt. 1e-6) call abort
+               if (abs (boo - 2.0) .gt. 1e-6) stop 1
             end do
         end do
 

Wall.f90

@@ -8,5 +8,5 @@ program main
          world!" ! { dg-warning "Missing '&' in continued character constant" }
   if (c.ne.&
                                    "Hello, world!")&
-                               call abort();end program main
+                               stop 1;end program main
 

Wno-all.f90

@@ -8,5 +8,5 @@ program main
          world!" ! { dg-bogus "Warning: Missing '&' in continued character constant" }
   if (c.ne.&
                                    "Hello, world!")&
-                               call abort();end program main
+                               stop 1;end program main
 

achar_1.f90

@@ -4,5 +4,5 @@ program  bug6
   integer(1) :: i = 65
   character a
   a = achar(i)
-  if (a /= 'A') call abort
+  if (a /= 'A') stop 1
 end program  bug6