OSDN Git Service

2006-06-08 Steven G. Kargl <kargls@comcat.net>
authorkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 8 Jun 2006 17:51:47 +0000 (17:51 +0000)
committerkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 8 Jun 2006 17:51:47 +0000 (17:51 +0000)
        * intrinsic.c (add_subroutine):  Make make_noreturn() conditional on
        the appropriate symbol name.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114490 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/intrinsic.c

index 23e50d1..26fcf19 100644 (file)
@@ -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
 2006-06-07  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/23091
index e0763b8..403bf08 100644 (file)
@@ -2232,7 +2232,8 @@ add_subroutines (void)
 
   add_sym_0s ("abort", 1, GFC_STD_GNU, NULL);
 
 
   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,
 
   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);
 
              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,
 
   add_sym_3s ("fgetc", 0, 1, BT_UNKNOWN, 0, GFC_STD_GNU,
              gfc_check_fgetputc_sub, NULL, gfc_resolve_fgetc_sub,