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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 389abf3fc1cff3bacbdf354f785b701f52b6b8a7..073b4e8bbd9bfde47864b16269f7f08977ca9b76 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2014-09-21  Dominique d'Humieres <dominiq@lps.ens.fr>
+
+       * resolve.c (resolve_fl_procedure): Remove duplicated lines.
+
 2014-09-20  Alessandro Fanfarillo  <fanfarillo.gcc@gmail.com>
            Tobias Burnus  <burnus@net-b.de>
 

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index a83e5afaae51f5fdccde49f5d1faf25d06d1a4ae..4b8f3b12a9596388f9e2977ecec1b9a852b945b8 100644 (file)
--- 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