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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@263784 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2cd5dcf3304d4a87cf0585fce8cc79e471d4990f..88edff3eed6edfa94459e8b2fb84a8cd02517bdb 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 196da9c0ff775067f3c9aeac925d41142197f920..993ea9f16b90331f893166fc5767a24ac37cf6c7 100644 (file)
--- a/gcc/fortran/module.c
+++ b/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)