From a23eec13d926c33de97b5b93e866a7524a8bcd1f Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Wed, 3 May 2006 21:24:11 +0000 Subject: re PR fortran/26896 (Description of implementation of -Wtabs/-Wno-tabs reversed) 2006-03-30 Steven G. Kargl PR fortran/26896 * lang.opt: Fix -Wtab description PR fortran/20248 * lang.opt: New flag -fall-intrinsics. * invoke.texi: Document option. * gfortran.h (options_t): New member flag_all_intrinsics. * options.c (gfc_init_options, gfc_handle_option): Set new option. sort nearby misplaced options. * intrinsic.c (add_sym, make_generic, make_alias): Use it. 2006-03-30 Steven G. Kargl * gfortran.dg/iargc.f90: New test. From-SVN: r113502 --- gcc/fortran/options.c | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) (limited to 'gcc/fortran/options.c') diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 18d56c5..ff3719e 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -61,6 +61,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, gfc_option.warn_underflow = 1; gfc_option.warn_unused_labels = 0; + gfc_option.flag_all_intrinsics = 0; gfc_option.flag_default_double = 0; gfc_option.flag_default_integer = 0; gfc_option.flag_default_real = 0; @@ -424,6 +425,18 @@ gfc_handle_option (size_t scode, const char *arg, int value) case OPT_Wunused_labels: gfc_option.warn_unused_labels = value; break; + + case OPT_fall_intrinsics: + gfc_option.flag_all_intrinsics = 1; + break; + + case OPT_fautomatic: + gfc_option.flag_automatic = value; + break; + + case OPT_fbackslash: + gfc_option.flag_backslash = value; + break; case OPT_fcray_pointer: gfc_option.flag_cray_pointer = value; @@ -437,14 +450,6 @@ gfc_handle_option (size_t scode, const char *arg, int value) gfc_option.flag_dollar_ok = value; break; - case OPT_fautomatic: - gfc_option.flag_automatic = value; - break; - - case OPT_fbackslash: - gfc_option.flag_backslash = value; - break; - case OPT_fd_lines_as_code: gfc_option.flag_d_lines = 1; break; -- cgit v1.1