From b60f92a353b5cc9d62bf09985579f1555f23251f Mon Sep 17 00:00:00 2001
From: "Steven G. Kargl" <kargls@comcast.net>
Date: Thu, 8 Jun 2006 17:51:47 +0000
Subject: [PATCH] intrinsic.c (add_subroutine): Make make_noreturn()
conditional on the appropriate symbol name.
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
---
gcc/fortran/ChangeLog | 5 +++++
gcc/fortran/intrinsic.c | 6 ++++--
2 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 23e50d1e0b8e..26fcf19b4f86 100644
--- 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 e0763b8d777f..403bf085fcef 100644
--- 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,
--
GitLab