diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2007-07-08 18:41:35 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2007-07-08 18:41:35 -0400 |
| commit | 534fd53491fb0026b878d93321880698a2930c7f (patch) | |
| tree | c64aa6a575afc064d73552d9250767d9f14738eb /gcc/function.c | |
| parent | 833be2294da78c26dfe3ca259b155bee1fe86ac2 (diff) | |
| download | gcc-534fd53491fb0026b878d93321880698a2930c7f.zip gcc-534fd53491fb0026b878d93321880698a2930c7f.tar.gz gcc-534fd53491fb0026b878d93321880698a2930c7f.tar.bz2 | |
re PR fortran/24784 (Warning about unused routine argument should not read "unused variable")
gcc:
2007-07-08 Daniel Franke <franke.daniel@gmail.com>
* function.c (do_warn_unused_parameter): Do not warn if
TREE_NO_WARNING is set.
gcc/fortran:
2007-07-08 Daniel Franke <franke.daniel@gmail.com>
PR fortran/24784
PR fortran/28004
* trans-decl.c (generate_local_decl): Adjusted warning on unused
dummy arguments, tell middle-end not to emit additional warnings.
From-SVN: r126471
Diffstat (limited to 'gcc/function.c')
| -rw-r--r-- | gcc/function.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/function.c b/gcc/function.c index 1477b6a..c69e18b 100644 --- a/gcc/function.c +++ b/gcc/function.c @@ -4287,7 +4287,8 @@ do_warn_unused_parameter (tree fn) for (decl = DECL_ARGUMENTS (fn); decl; decl = TREE_CHAIN (decl)) if (!TREE_USED (decl) && TREE_CODE (decl) == PARM_DECL - && DECL_NAME (decl) && !DECL_ARTIFICIAL (decl)) + && DECL_NAME (decl) && !DECL_ARTIFICIAL (decl) + && !TREE_NO_WARNING (decl)) warning (OPT_Wunused_parameter, "unused parameter %q+D", decl); } |