trans-expr.c (gfc_build_builtin_function_decls): Mark stop_numeric and stop_string...

2005-08-05  Thomas Koenig  <Thomas.Koenig@online.de>

        * trans-expr.c  (gfc_build_builtin_function_decls):  Mark
        stop_numeric and stop_string as non-returning.

From-SVN: r102782

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f62655960348c1258987fbe3d00321dd16ce7a5b..be0e9c992acad72b8f0d3e9ecd0188d0f358bcc1 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-08-05  Thomas Koenig  <Thomas.Koenig@online.de>
+
+       * trans-expr.c  (gfc_build_builtin_function_decls):  Mark
+       stop_numeric and stop_string as non-returning.
+
 2005-08-04  Paul Brook  <paul@codesourcery.com>
 
        * trans-expr.c (gfc_conv_expr, gfc_conv_expr_type): Update comments.

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 3395f3e5a7b63428edde13bb79b0befff2c65ea1..49811eb0f98db5f4abfb6069460137d6b81eae99 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -1909,10 +1909,15 @@ gfc_build_builtin_function_decls (void)
     gfc_build_library_function_decl (get_identifier (PREFIX("stop_numeric")),
                                     void_type_node, 1, gfc_int4_type_node);
 
+  /* Stop doesn't return.  */
+  TREE_THIS_VOLATILE (gfor_fndecl_stop_numeric) = 1;
+
   gfor_fndecl_stop_string =
     gfc_build_library_function_decl (get_identifier (PREFIX("stop_string")),
                                     void_type_node, 2, pchar_type_node,
                                      gfc_int4_type_node);
+  /* Stop doesn't return.  */
+  TREE_THIS_VOLATILE (gfor_fndecl_stop_string) = 1;
 
   gfor_fndecl_pause_numeric =
     gfc_build_library_function_decl (get_identifier (PREFIX("pause_numeric")),