trans.h: Remove gfor_fndecl_stop_numeric_f08.

	* trans.h: Remove gfor_fndecl_stop_numeric_f08.
	* trans-decl.c: Remove gfor_fndecl_stop_numeric_f08.
	* trans-stmt.c (gfc_trans_stop): Use gfor_fndecl_stop_numeric
	instead of gfor_fndecl_stop_numeric_f08.

	* gfortran.map: Remove _gfortran_stop_numeric_f08.
	* runtime/stop.c: Rename stop_numeric_f08 into stop_numeric.

From-SVN: r243803

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 7b653ce61cd598b04b3398a543ccc1a63fcaacd4..8149bf927a57315a777d67ee97b6b9164689ba57 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,10 @@
+2016-12-19  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       * trans.h: Remove gfor_fndecl_stop_numeric_f08.
+       * trans-decl.c: Remove gfor_fndecl_stop_numeric_f08.
+       * trans-stmt.c (gfc_trans_stop): Use gfor_fndecl_stop_numeric
+       instead of gfor_fndecl_stop_numeric_f08.
+
 2016-12-19  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/78545

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index a7a5e2a4b6b6747e5360d925668e031762917cb9..403f543a808ffa61a5b01500020e5b8446449df2 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -98,7 +98,6 @@ static int seen_ieee_symbol;
 tree gfor_fndecl_pause_numeric;
 tree gfor_fndecl_pause_string;
 tree gfor_fndecl_stop_numeric;
-tree gfor_fndecl_stop_numeric_f08;
 tree gfor_fndecl_stop_string;
 tree gfor_fndecl_error_stop_numeric;
 tree gfor_fndecl_error_stop_string;
@@ -3470,12 +3469,6 @@ gfc_build_builtin_function_decls (void)
   /* STOP doesn't return.  */
   TREE_THIS_VOLATILE (gfor_fndecl_stop_numeric) = 1;
 
-  gfor_fndecl_stop_numeric_f08 = gfc_build_library_function_decl (
-       get_identifier (PREFIX("stop_numeric_f08")),
-       void_type_node, 1, gfc_int4_type_node);
-  /* STOP doesn't return.  */
-  TREE_THIS_VOLATILE (gfor_fndecl_stop_numeric_f08) = 1;
-
   gfor_fndecl_stop_string = gfc_build_library_function_decl_with_spec (
        get_identifier (PREFIX("stop_string")), ".R.",
        void_type_node, 2, pchar_type_node, gfc_int4_type_node);

diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c
index d9e185f292790dcb199701b883957faa74fb5bc4..ccfaee6213c5508c1d7e4650d1c6516b2ee24f77 100644 (file)
--- a/gcc/fortran/trans-stmt.c
+++ b/gcc/fortran/trans-stmt.c
@@ -650,7 +650,7 @@ gfc_trans_stop (gfc_code *code, bool error_stop)
                                    : gfor_fndecl_error_stop_numeric)
                                 : (flag_coarray == GFC_FCOARRAY_LIB
                                    ? gfor_fndecl_caf_stop_numeric
-                                   : gfor_fndecl_stop_numeric_f08), 1,
+                                   : gfor_fndecl_stop_numeric), 1,
                                 fold_convert (gfc_int4_type_node, se.expr));
     }
   else

diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h
index bfc2a24d0fa0a5b55652ce31a58fbf49bb74d610..3095f4c0dea991eb80d5c0a1bc3961b09eecf54f 100644 (file)
--- a/gcc/fortran/trans.h
+++ b/gcc/fortran/trans.h
@@ -784,7 +784,6 @@ void gfc_omp_firstprivatize_type_sizes (struct gimplify_omp_ctx *, tree);
 extern GTY(()) tree gfor_fndecl_pause_numeric;
 extern GTY(()) tree gfor_fndecl_pause_string;
 extern GTY(()) tree gfor_fndecl_stop_numeric;
-extern GTY(()) tree gfor_fndecl_stop_numeric_f08;
 extern GTY(()) tree gfor_fndecl_stop_string;
 extern GTY(()) tree gfor_fndecl_error_stop_numeric;
 extern GTY(()) tree gfor_fndecl_error_stop_string;

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 114b006b4099f5ba66b7ea34feaf863658035aa5..36c994ae417367f55b42544b2c050eec02d629ce 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2016-12-19  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       * gfortran.map: Remove _gfortran_stop_numeric_f08.
+       * runtime/stop.c: Rename stop_numeric_f08 into stop_numeric.
+
 2016-12-19  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        * Makefile.am: Remove ISO_C_BINDING runtime functions.

diff --git a/libgfortran/gfortran.map b/libgfortran/gfortran.map
index 80cf29ad8431519555af209fb654fc4aeac77978..c2b491af3cc62b8c0f3c47da15e7d4bf6a22cbee 100644 (file)
--- a/libgfortran/gfortran.map
+++ b/libgfortran/gfortran.map
@@ -1108,7 +1108,6 @@ GFORTRAN_1.4 {
     _gfortran_parity_l8;
     _gfortran_parity_l16;
     _gfortran_selected_real_kind2008;
-    _gfortran_stop_numeric_f08;
     _gfortran_transfer_array_write;
     _gfortran_transfer_character_write;
     _gfortran_transfer_character_wide_write;

diff --git a/libgfortran/runtime/stop.c b/libgfortran/runtime/stop.c
index 26896e8511eda0ed43215247a1a4c2dc20757fee..8f5431b2e9747c95e7196d31a0be91a086e51258 100644 (file)
--- a/libgfortran/runtime/stop.c
+++ b/libgfortran/runtime/stop.c
@@ -88,24 +88,6 @@ export_proto(stop_numeric);
 
 void
 stop_numeric (GFC_INTEGER_4 code)
-{
-  report_exception ();
-  if (code == -1)
-    code = 0;
-  else
-    st_printf ("STOP %d\n", (int)code);
-
-  exit (code);
-}
-
-
-/* A Fortran 2008 numeric STOP statement.  */
-
-extern _Noreturn void stop_numeric_f08 (GFC_INTEGER_4);
-export_proto(stop_numeric_f08);
-
-void
-stop_numeric_f08 (GFC_INTEGER_4 code)
 {
   report_exception ();
   st_printf ("STOP %d\n", (int)code);