module.c (read_module): Remove redundant code lines.
authorErik Edelmann <eedelman@gcc.gnu.org>
Thu, 23 Feb 2006 21:58:58 +0000 (21:58 +0000)
committerErik Edelmann <eedelman@gcc.gnu.org>
Thu, 23 Feb 2006 21:58:58 +0000 (21:58 +0000)
2006-02-23  Erik Edelmann  <eedelman@gcc.gnu.org>

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

From-SVN: r111398

gcc/fortran/ChangeLog
gcc/fortran/module.c

index e80c5768f5b48be7cf63a76b60cbd771f11bcfd0..d78819f92e4e045dd37d40cead510983017d1b15 100644 (file)
@@ -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
index 3c45e57cff16deabc35899a5ed2a7787ec56e0b3..0acc47480034e044443ac81704a8ed3bf2984799 100644 (file)
@@ -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).  */