re PR fortran/84381 (replace non-std 'call abort' by 'stop 1' in gfortran testsuite)

2018-03-25  Thomas Koenig  <tkoenig@gcc.gnu.org>
	Neil Carlson <neil.n.carlson@gmail.com>

	PR fortran/84381
	* gfortran.dg/literal_character_constant_1.inc: Replace
	call abort by STOP n.
	* gfortran.dg/overload_1.f90: Likewise.


Co-Authored-By: Neil Carlson <neil.n.carlson@gmail.com>

From-SVN: r258844

gcc/testsuite/ChangeLog

+2018-03-25  Thomas Koenig  <tkoenig@gcc.gnu.org>
+	Neil Carlson <neil.n.carlson@gmail.com>
+
+	PR fortran/84381
+	* gfortran.dg/literal_character_constant_1.inc: Replace
+	call abort by STOP n.
+	* gfortran.dg/overload_1.f90: Likewise.
+
 2018-03-25  Seth Johnson <johnsonsr@ornl.gov>
 	Dominique d'Humieres  <dominiq@gcc.gnu.org>
 

gcc/testsuite/gfortran.dg/literal_character_constant_1.inc

@@ -9,12 +9,12 @@ c A tab is between 8 and 9.
       write(fil,'(a)') c
 #ifdef LL_NONE
       if(fil.ne. "12345678	9")
-     &  call abort
+     &  STOP 1
 #else
       if(fil.ne.
      &"1234567                                                      8	9"
      &)
-     &  call abort
+     &  STOP 2
 #endif
       end
 

gcc/testsuite/gfortran.dg/overload_1.f90

@@ -162,8 +162,7 @@ contains
     r2 = (/ a.eq.b, a.ne.b, a.lt.b, a.le.b, a.gt.b, a.ge.b /)
     if (any (r1.neqv.r2)) STOP 1
     if (any (r1.neqv. &
-         (/ .false.,.true.,.true., .true., .false.,.false. /) )) call&
-         & abort
+         (/ .false.,.true.,.true., .true., .false.,.false. /) )) STOP 1
   end subroutine checkt
 
   subroutine checku
@@ -177,7 +176,6 @@ contains
     r2 = (/ a.eq.b, a.ne.b, a.lt.b, a.le.b, a.gt.b, a.ge.b /)
     if (any (r1.neqv.r2)) STOP 2
     if (any (r1.neqv. &
-         (/ .false.,.true.,.true., .true., .false.,.false. /) )) call&
-         & abort
+         (/ .false.,.true.,.true., .true., .false.,.false. /) )) STOP 2
   end subroutine checku
 end program main