module.c (load_generic_interfaces): Move call to find_symbol() so that only…

module.c (load_generic_interfaces): Move call to find_symbol() so that only occurs if actually needed.

2018-08-22  Andrew Benson  <abensonca@gmail.com>

        * module.c (load_generic_interfaces): Move call to find_symbol()
        so that only occurs if actually needed.

From-SVN: r263784

gcc/fortran/ChangeLog

+2018-08-22  Andrew Benson  <abensonca@gmail.com>
+
+	* module.c (load_generic_interfaces): Move call to find_symbol()
+	so that only occurs if actually needed.
+
 2018-08-22  Janus Weil  <janus@gcc.gnu.org>
 
 	PR fortran/86888

gcc/fortran/module.c

@@ -4559,9 +4559,6 @@ load_generic_interfaces (void)
 	  /* Decide if we need to load this one or not.  */
 	  p = find_use_name_n (name, &i, false);
 
-	  st = find_symbol (gfc_current_ns->sym_root,
-			    name, module_name, 1);
-
 	  if (!p || gfc_find_symbol (p, NULL, 0, &sym))
 	    {
 	      /* Skip the specific names for these cases.  */
@@ -4570,6 +4567,9 @@ load_generic_interfaces (void)
 	      continue;
 	    }
 
+	  st = find_symbol (gfc_current_ns->sym_root,
+			    name, module_name, 1);
+
 	  /* If the symbol exists already and is being USEd without being
 	     in an ONLY clause, do not load a new symtree(11.3.2).  */
 	  if (!only_flag && st)