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/intrinsic.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/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index 7828922..e0763b8 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -224,7 +224,8 @@ add_sym (const char *name, int elemental, int actual_ok ATTRIBUTE_UNUSED, /* First check that the intrinsic belongs to the selected standard. If not, don't add it to the symbol list. */ - if (!(gfc_option.allow_std & standard)) + if (!(gfc_option.allow_std & standard) + && gfc_option.flag_all_intrinsics == 0) return; switch (sizing) @@ -782,7 +783,8 @@ make_generic (const char *name, gfc_generic_isym_id generic_id, int standard) { gfc_intrinsic_sym *g; - if (!(gfc_option.allow_std & standard)) + if (!(gfc_option.allow_std & standard) + && gfc_option.flag_all_intrinsics == 0) return; if (sizing != SZ_NOTHING) @@ -824,7 +826,8 @@ make_alias (const char *name, int standard) /* First check that the intrinsic belongs to the selected standard. If not, don't add it to the symbol list. */ - if (!(gfc_option.allow_std & standard)) + if (!(gfc_option.allow_std & standard) + && gfc_option.flag_all_intrinsics == 0) return; switch (sizing) |