diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2006-05-03 21:24:11 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-05-03 21:24:11 +0000 |
| commit | a23eec13d926c33de97b5b93e866a7524a8bcd1f (patch) | |
| tree | 76d5f89de0f22f26d69e8f1e2ee408c4e2363a77 /gcc/fortran/options.c | |
| parent | afd83fe4394ec1ad673e4930573eac6e64a11a01 (diff) | |
| download | gcc-a23eec13d926c33de97b5b93e866a7524a8bcd1f.zip gcc-a23eec13d926c33de97b5b93e866a7524a8bcd1f.tar.gz gcc-a23eec13d926c33de97b5b93e866a7524a8bcd1f.tar.bz2 | |
re PR fortran/26896 (Description of implementation of -Wtabs/-Wno-tabs reversed)
2006-03-30 Steven G. Kargl <kargls@comcast.net>
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 <kargls@comcast.net>
* gfortran.dg/iargc.f90: New test.
From-SVN: r113502
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 21 |
1 files changed, 13 insertions, 8 deletions
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; |