diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2010-05-20 17:49:07 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2010-05-20 17:49:07 -0400 |
| commit | 4ed44cccdd2243a585cd3beb4bb3fbe616e7d156 (patch) | |
| tree | 8ca421cfaf635a6d87ac1152b678e4fe099604b5 /gcc/fortran/options.c | |
| parent | a48ba7e10b954685dca91cf39163fa03d68d29b1 (diff) | |
| download | gcc-4ed44cccdd2243a585cd3beb4bb3fbe616e7d156.zip gcc-4ed44cccdd2243a585cd3beb4bb3fbe616e7d156.tar.gz gcc-4ed44cccdd2243a585cd3beb4bb3fbe616e7d156.tar.bz2 | |
re PR fortran/38407 (Wishlist: -Wunused-dummy-argument and -Wno-unused-dummy-argument)
gcc/fortran/:
2010-05-20 Daniel Franke <franke.daniel@gmail.com>
PR fortran/38407
* lang.opt (Wunused-dummy-argument): New option.
* gfortran.h (gfc_option_t): Add warn_unused_dummy_argument.
* options.c (gfc_init_options): Disable warn_unused_dummy_argument.
(set_Wall): Enable warn_unused_dummy_argument.
(gfc_handle_option): Set warn_unused_dummy_argument according to
command line.
* trans-decl.c (generate_local_decl): Separate warnings about
unused variables and unused dummy arguments.
* invoke.texi: Documented new option.
gcc/testsuite/:
2010-05-20 Daniel Franke <franke.daniel@gmail.com>
PR fortran/38407
* warn_unused_dummy_argument_1.f90: New.
* warn_unused_dummy_argument_2.f90: New.
From-SVN: r159641
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 365b326..a5c0b92 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -87,6 +87,7 @@ gfc_init_options (unsigned int argc, const char **argv) gfc_option.warn_intrinsic_shadow = 0; gfc_option.warn_intrinsics_std = 0; gfc_option.warn_align_commons = 1; + gfc_option.warn_unused_dummy_argument = 0; gfc_option.max_errors = 25; gfc_option.flag_all_intrinsics = 0; @@ -417,6 +418,7 @@ set_Wall (int setting) gfc_option.warn_intrinsic_shadow = setting; gfc_option.warn_intrinsics_std = setting; gfc_option.warn_character_truncation = setting; + gfc_option.warn_unused_dummy_argument = setting; warn_unused = setting; warn_return_type = setting; @@ -616,6 +618,10 @@ gfc_handle_option (size_t scode, const char *arg, int value, gfc_option.warn_align_commons = value; break; + case OPT_Wunused_dummy_argument: + gfc_option.warn_unused_dummy_argument = value; + break; + case OPT_fall_intrinsics: gfc_option.flag_all_intrinsics = 1; break; |