intrinsic.c (add_subroutine): Make make_noreturn() conditional on the appropriate...

2006-06-08  Steven G. Kargl  <kargls@comcat.net>

        * intrinsic.c (add_subroutine):  Make make_noreturn() conditional on
        the appropriate symbol name.

From-SVN: r114490

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 23e50d1e0b8ef1dacc89c6bd77e03bf6796ef2bb..26fcf19b4f865e29bdb486b25d62e9654923e112 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-08  Steven G. Kargl  <kargls@comcat.net>
+
+       * intrinsic.c (add_subroutine):  Make make_noreturn() conditional on
+       the appropriate symbol name.
+       
 2006-06-07  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/23091

diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index e0763b8d777fbedc6a1d279bdcfd9f24291e36df..403bf085fcef24c7299a0deaf3e52512b59b4365 100644 (file)
--- a/gcc/fortran/intrinsic.c
+++ b/gcc/fortran/intrinsic.c
@@ -2232,7 +2232,8 @@ add_subroutines (void)
 
   add_sym_0s ("abort", 1, GFC_STD_GNU, NULL);
 
-  make_noreturn();
+  if ((gfc_option.allow_std & GFC_STD_GNU) || gfc_option.flag_all_intrinsics)
+    make_noreturn();
 
   add_sym_1s ("cpu_time", 0, 1, BT_UNKNOWN, 0, GFC_STD_F95,
              gfc_check_cpu_time, NULL, gfc_resolve_cpu_time,
@@ -2338,7 +2339,8 @@ add_subroutines (void)
              gfc_check_exit, NULL, gfc_resolve_exit,
              c, BT_INTEGER, di, OPTIONAL);
 
-  make_noreturn();
+  if ((gfc_option.allow_std & GFC_STD_GNU) || gfc_option.flag_all_intrinsics)
+    make_noreturn();
 
   add_sym_3s ("fgetc", 0, 1, BT_UNKNOWN, 0, GFC_STD_GNU,
              gfc_check_fgetputc_sub, NULL, gfc_resolve_fgetc_sub,