2006-02-23 Erik Edelmann <eedelman@gcc.gnu.org>

        * module.c (read_module): Remove redundant code lines.

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e80c576..d78819f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2006-02-23  Erik Edelmann  <eedelman@gcc.gnu.org>
+
+       * module.c (read_module): Remove redundant code lines.
+
 2006-02-20 Rafael \81Ávila de Esp\81índola <rafael.espindola@gmail.com>
        * Make-lang.in (FORTRAN): Remove
        (.PHONY): Remove F95 and f95. Add fortran

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 3c45e57..0acc474 100644 (file)
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -3189,12 +3189,6 @@ read_module (void)
       skip_list ();
 
       /* See if the symbol has already been loaded by a previous module.
-         If so, we reference the existing symbol and prevent it from
-         being loaded again.  */
-
-      sym = find_true_name (info->u.rsym.true_name, info->u.rsym.module);
-
-        /* See if the symbol has already been loaded by a previous module.
         If so, we reference the existing symbol and prevent it from
         being loaded again.  This should not happen if the symbol being
         read is an index for an assumed shape dummy array (ns != 1).  */