+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
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,
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,