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 | |
| 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
| -rw-r--r-- | gcc/fortran/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 2 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_4.f90 | 16 |
4 files changed, 29 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 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 32c5795..55b54ff 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-07-08 Tobias Burnus <burnus@net-b.de> + + PR fortran/57469 + * gfortran.dg/warn_unused_dummy_argument_4.f90: New. + 2013-07-08 Manfred Schwarb <manfred99@gmx.ch> * gfortran.dg/defined_assignment_7.f90: Fix dg-do. diff --git a/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_4.f90 b/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_4.f90 new file mode 100644 index 0000000..79e5fa1 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/warn_unused_dummy_argument_4.f90 @@ -0,0 +1,16 @@ +! { dg-do compile } +! { dg-options "-Wall" } +! +! PR fortran/57469 +! +! Contributed by Vladimir Fuka +! +! Don't warn for unused dummy arguments when they are used in namelists +! + subroutine read_command_line(line,a,b) + character(*),intent(in) :: line + intent(inout) :: a,b + namelist /cmd/ a,b + + read(line,nml = cmd) + end |