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

2018-03-24  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/84381
        * gfortran.dg/bound_simplification_3.f90: Replace "abort" by
	"_gfortran_stop" in scan-tree-dump-times directive.
        * gfortran.dg/bound_simplification_4.f90: Likewise.
        * gfortran.dg/bound_simplification_5.f90: Likewise.
        * gfortran.dg/bound_simplification_6.f90: Likewise.
        * gfortran.dg/complex_intrinsic_7.f90: Likewise.
        * gfortran.dg/dot_product_2.f90: Likewise.
        * gfortran.dg/iso_fortran_env_5.f90: Likewise.
        * gfortran.dg/minmaxloc_12.f90: Likewise.
        * gfortran.dg/minmaxloc_13.f90: Likewise.
        * gfortran.dg/parameter_array_element_3.f90: Likewise.
        * gfortran.dg/shape_7.f90: Likewise.
        * gfortran.dg/storage_size_4.f90: Likewise.
        * gfortran.dg/string_length_2.f90: Likewise.

From-SVN: r258845

diff --git a/gcc/testsuite/gfortran.dg/bound_simplification_3.f90 b/gcc/testsuite/gfortran.dg/bound_simplification_3.f90
index 2a03f3b7f67dd312b5fdf73cceade9e4aaeafb15..66ed5f11c8ba96d79041fae2282cf22ce75b9527 100644 (file)
--- a/gcc/testsuite/gfortran.dg/bound_simplification_3.f90
+++ b/gcc/testsuite/gfortran.dg/bound_simplification_3.f90
@@ -19,4 +19,4 @@ program testit
 end program testit
 
 ! { dg-final { scan-tree-dump-times "bound" 0 "original" } }
-! { dg-final { scan-tree-dump-times "abort" 0 "original" } }
+! { dg-final { scan-tree-dump-times "_gfortran_stop" 0 "original" } }

diff --git a/gcc/testsuite/gfortran.dg/bound_simplification_4.f90 b/gcc/testsuite/gfortran.dg/bound_simplification_4.f90
index 521647289cd3280bddeca93f104c801e18c4f4e2..205c1e90969ed3d47d844f14604575c10c28036f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/bound_simplification_4.f90
+++ b/gcc/testsuite/gfortran.dg/bound_simplification_4.f90
@@ -26,4 +26,4 @@
   ! no simplification for ucobound(e{,%c}, dim=2)
 end
 ! { dg-final { scan-tree-dump-not "bound" "original" } }
-! { dg-final { scan-tree-dump-not "abort" "original" } }
+! { dg-final { scan-tree-dump-not "_gfortran_stop" "original" } }

diff --git a/gcc/testsuite/gfortran.dg/bound_simplification_5.f90 b/gcc/testsuite/gfortran.dg/bound_simplification_5.f90
index 77563b29e590ea92620714411b7c57341934e19b..38670c26076f508f753878daa10634d9451d4e3f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/bound_simplification_5.f90
+++ b/gcc/testsuite/gfortran.dg/bound_simplification_5.f90
@@ -71,4 +71,4 @@ contains
 
   end subroutine
 end
-! { dg-final { scan-tree-dump-not "abort" "original" } }
+! { dg-final { scan-tree-dump-not "_gfortran_stop" "original" } }

diff --git a/gcc/testsuite/gfortran.dg/bound_simplification_6.f90 b/gcc/testsuite/gfortran.dg/bound_simplification_6.f90
index 2480f2806fdfb0c140ebc7222dbbce07a714b786..31a9bab590cc2235e25ba7eca8f0239be0d37676 100644 (file)
--- a/gcc/testsuite/gfortran.dg/bound_simplification_6.f90
+++ b/gcc/testsuite/gfortran.dg/bound_simplification_6.f90
@@ -23,4 +23,4 @@ MODULE qs_integrate_potential_low
     END SUBROUTINE integrate_general_opt
 END MODULE qs_integrate_potential_low
 ! { dg-final { scan-tree-dump-not "bound" "original" } }
-! { dg-final { scan-tree-dump-not "abort" "original" } }
+! { dg-final { scan-tree-dump-not "_gfortran_stop" "original" } }

diff --git a/gcc/testsuite/gfortran.dg/complex_intrinsic_7.f90 b/gcc/testsuite/gfortran.dg/complex_intrinsic_7.f90
index 3cc67bd8776134b4e968fd75da4698519d9c8e2f..0737adaf0992f09338ab9635b848bf305b175db4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/complex_intrinsic_7.f90
+++ b/gcc/testsuite/gfortran.dg/complex_intrinsic_7.f90
@@ -40,4 +40,4 @@ if (abs(tanh(z80_0) - cmplx(0.0_8,0.0_8,8)) > eps8) STOP 15
 if (abs(tanh(z81_1) - cmplx(1.0839233273386946_8,0.27175258531951174_8,8)) > eps8) STOP 16
 
 end
-! { dg-final { scan-tree-dump-times "abort" 0 "original" } }
+! { dg-final { scan-tree-dump-times "_gfortran_stop" 0 "original" } }

diff --git a/gcc/testsuite/gfortran.dg/dot_product_2.f90 b/gcc/testsuite/gfortran.dg/dot_product_2.f90
index f40122b8d1321d601ccaf0101929d20e0a66d456..e59497f04a602397632bad4c0a20f34c01e2a9ab 100644 (file)
--- a/gcc/testsuite/gfortran.dg/dot_product_2.f90
+++ b/gcc/testsuite/gfortran.dg/dot_product_2.f90
@@ -34,4 +34,4 @@ if (ANY (MATMUL ((/ (1.0, 2.0), (2.0, 3.0) /),                                &
 end
 
 
-! { dg-final { scan-tree-dump-not "abort" "original" } }
+! { dg-final { scan-tree-dump-not "_gfortran_stop" "original" } }

diff --git a/gcc/testsuite/gfortran.dg/iso_fortran_env_5.f90 b/gcc/testsuite/gfortran.dg/iso_fortran_env_5.f90
index efe012143ca48ac7905c53e349de5c0ee350e268..8e6651495fc36b9079d6f0cfac9d4d24cfbfc9d8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/iso_fortran_env_5.f90
+++ b/gcc/testsuite/gfortran.dg/iso_fortran_env_5.f90
@@ -22,5 +22,5 @@ if (STAT_LOCKED == STAT_UNLOCKED) STOP 5
 
 end
 
-! { dg-final { scan-tree-dump-times "abort" 0 "original" } }
+! { dg-final { scan-tree-dump-times "_gfortran_stop" 0 "original" } }
 

diff --git a/gcc/testsuite/gfortran.dg/shape_7.f90 b/gcc/testsuite/gfortran.dg/shape_7.f90
index 7b0bed7bd665082ab60f45721fd1b14abf7cec6c..84f671f9c4fce1d59cf3c2f318eff0f16d37ec90 100644 (file)
--- a/gcc/testsuite/gfortran.dg/shape_7.f90
+++ b/gcc/testsuite/gfortran.dg/shape_7.f90
@@ -27,5 +27,5 @@ Program Main
  if (any (ubound((X2)) /= [5,2])) STOP 12
 End Program Main
 
-! { dg-final { scan-tree-dump-times "abort" 0 "original" } }
+! { dg-final { scan-tree-dump-times "_gfortran_stop" 0 "original" } }
 

diff --git a/gcc/testsuite/gfortran.dg/storage_size_4.f90 b/gcc/testsuite/gfortran.dg/storage_size_4.f90
index 8650b90f79d9b9ead1b09c07e666cd0c5336a08d..820048cbe9c95c6be4ff339b2001483896420dfc 100644 (file)
--- a/gcc/testsuite/gfortran.dg/storage_size_4.f90
+++ b/gcc/testsuite/gfortran.dg/storage_size_4.f90
@@ -19,4 +19,4 @@ subroutine S ( A )
   esize = ( storage_size(a) + 7 ) / 8
 end
 
-! { dg-final { scan-tree-dump-not "abort" "original" } }
+! { dg-final { scan-tree-dump-not "_gfortran_stop" "original" } }

diff --git a/gcc/testsuite/gfortran.dg/string_length_2.f90 b/gcc/testsuite/gfortran.dg/string_length_2.f90
index 96afa81f804de8d0dd3a436eb680f6869e507a9e..7d244a0a367387d24c770fe387b0817a342bac43 100644 (file)
--- a/gcc/testsuite/gfortran.dg/string_length_2.f90
+++ b/gcc/testsuite/gfortran.dg/string_length_2.f90
@@ -28,4 +28,4 @@ program main
   if (len(c(     i*(i+1) - 2  :     (i+1)*i      )) /= 3) STOP 17! Case 17
   if (len(c(  (i-2)*(i-3)     :   (i-3)*(i-2)    )) /= 1)       STOP 18! Case 18
 end program main
-! { dg-final { scan-tree-dump-times "_abort" 0 "original" } }
+! { dg-final { scan-tree-dump-times "_gfortran_stop" 0 "original" } }