diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-07-08 14:15:11 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-07-08 14:15:11 +0200 |
| commit | c8877f40377038ad919467e472ca09625559b1c7 (patch) | |
| tree | bc6708d52ad3670c465b4b1f6eaf5d344636f8d5 /gcc/fortran | |
| parent | 454e172038cf31679aa69ba72c3c9980dbb23f9e (diff) | |
| download | gcc-c8877f40377038ad919467e472ca09625559b1c7.zip gcc-c8877f40377038ad919467e472ca09625559b1c7.tar.gz gcc-c8877f40377038ad919467e472ca09625559b1c7.tar.bz2 | |
re PR fortran/57469 (Erroneous warning for unused dummy arguments used in namelist)
2013-07-08 Tobias Burnus <burnus@net-b.de>
PR fortran/57469
* trans-decl.c (generate_local_decl): Don't warn that
a dummy is unused, when it is in a namelist.
2013-07-08 Tobias Burnus <burnus@net-b.de>
PR fortran/57469
* gfortran.dg/warn_unused_dummy_argument_4.f90: New.
From-SVN: r200785
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 2 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f85e2eb..487d929 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2013-07-08 Tobias Burnus <burnus@net-b.de> + + PR fortran/57469 + * trans-decl.c (generate_local_decl): Don't warn that + a dummy is unused, when it is in a namelist. + 2013-07-01 Dominique d'Humieres <dominiq@lps.ens.fr> PR fortran/54788 @@ -628,7 +634,7 @@ * class.c (finalization_scalarizer, finalizer_insert_packed_call, generate_finalization_wrapper): Avoid segfault with absent SIZE= - argment to TRANSFER and use correct result kind for SIZE. + argument to TRANSFER and use correct result kind for SIZE. * intrinsic.c (gfc_isym_id_by_intmod): Also handle ids of nonmodules. * trans.c (gfc_build_final_call): Handle coarrays. diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index fc3a725..6a8d98c 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -4726,7 +4726,7 @@ generate_local_decl (gfc_symbol * sym) gfc_get_symbol_decl (sym); /* Warnings for unused dummy arguments. */ - else if (sym->attr.dummy) + else if (sym->attr.dummy && !sym->attr.in_namelist) { /* INTENT(out) dummy arguments are likely meant to be set. */ if (gfc_option.warn_unused_dummy_argument |