diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-07-27 16:17:01 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-07-27 16:17:01 +0200 |
| commit | 9f1930bea87d274cefe24a19098e565c519ee464 (patch) | |
| tree | 70a2a0a28ab9cf95185f5cc543e57692db3bd294 /gcc/fortran/interface.c | |
| parent | c970dc045949589801863bb6bf25cbfea35da3f5 (diff) | |
| download | gcc-9f1930bea87d274cefe24a19098e565c519ee464.zip gcc-9f1930bea87d274cefe24a19098e565c519ee464.tar.gz gcc-9f1930bea87d274cefe24a19098e565c519ee464.tar.bz2 | |
re PR fortran/57991 (Enhance "Same actual argument associated" warning (-Waliasing))
2013-07-27 Tobias Burnus <burnus@net-b.de>
PR fortran/57991
* interface.c (check_some_aliasing): Also warn for intent
* OUT/OUT.
2013-07-27 Tobias Burnus <burnus@net-b.de>
PR fortran/57991
* gfortran.dg/warn_alias.f90: New.
From-SVN: r201286
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 3c794b2..339dd24 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -3078,7 +3078,8 @@ check_some_aliasing (gfc_formal_arglist *f, gfc_actual_arglist *a) break; f2_intent = p[j].f->sym->attr.intent; if ((f1_intent == INTENT_IN && f2_intent == INTENT_OUT) - || (f1_intent == INTENT_OUT && f2_intent == INTENT_IN)) + || (f1_intent == INTENT_OUT && f2_intent == INTENT_IN) + || (f1_intent == INTENT_OUT && f2_intent == INTENT_OUT)) { gfc_warning ("Same actual argument associated with INTENT(%s) " "argument '%s' and INTENT(%s) argument '%s' at %L", |