diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-03 21:24:11 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-03 21:24:11 +0000 |
| commit | d52febd5d973cac2b2fa3c7e8995ffc060d7ca30 (patch) | |
| tree | 76d5f89de0f22f26d69e8f1e2ee408c4e2363a77 /gcc/fortran/options.c | |
| parent | 66c8f3a9ab0a44ee04865322a506d5253864013c (diff) | |
| download | gcc-d52febd5d973cac2b2fa3c7e8995ffc060d7ca30.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@113502 138bc75d-0d04-0410-961f-82ee72b054a4
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 18d56c560b0..ff3719e54d9 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; |