diff options
| author | Dominique d'Humieres <dominiq@lps.ens.fr> | 2014-09-22 12:05:37 +0200 |
|---|---|---|
| committer | Dominique d'Humieres <dominiq@gcc.gnu.org> | 2014-09-22 12:05:37 +0200 |
| commit | 77fee9d8e7dbe616392d7dbebbd7f53bce13403e (patch) | |
| tree | 812f0e0255b44ad9bd851fbc14b5d1e85f77da6c /gcc/fortran/resolve.c | |
| parent | 6e5dedda84b1879e814ad686adc3f00ab063c15c (diff) | |
| download | gcc-77fee9d8e7dbe616392d7dbebbd7f53bce13403e.zip gcc-77fee9d8e7dbe616392d7dbebbd7f53bce13403e.tar.gz gcc-77fee9d8e7dbe616392d7dbebbd7f53bce13403e.tar.bz2 | |
resolve.c (resolve_fl_procedure): Remove duplicated lines.
2014-09-21 Dominique d'Humieres <dominiq@lps.ens.fr>
* resolve.c (resolve_fl_procedure): Remove duplicated lines.
From-SVN: r215452
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index a83e5af..4b8f3b1 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -11196,30 +11196,6 @@ resolve_fl_procedure (gfc_symbol *sym, int mp_flag) } } } - - /* PUBLIC interfaces may expose PRIVATE procedures that take types - PRIVATE to the containing module. */ - for (iface = sym->generic; iface; iface = iface->next) - { - for (arg = gfc_sym_get_dummy_args (iface->sym); arg; arg = arg->next) - { - if (arg->sym - && arg->sym->ts.type == BT_DERIVED - && !arg->sym->ts.u.derived->attr.use_assoc - && !gfc_check_symbol_access (arg->sym->ts.u.derived) - && !gfc_notify_std (GFC_STD_F2003, "Procedure '%s' in " - "PUBLIC interface '%s' at %L takes " - "dummy arguments of '%s' which is " - "PRIVATE", iface->sym->name, - sym->name, &iface->sym->declared_at, - gfc_typename(&arg->sym->ts))) - { - /* Stop this message from recurring. */ - arg->sym->ts.u.derived->attr.access = ACCESS_PUBLIC; - return false; - } - } - } } if (sym->attr.function && sym->value && sym->attr.proc != PROC_ST_FUNCTION |