From 10c5bc6c2d22d7eddcba9a779985278a7bc58313 Mon Sep 17 00:00:00 2001 From: Erik Edelmann Date: Thu, 23 Feb 2006 21:58:58 +0000 Subject: [PATCH] module.c (read_module): Remove redundant code lines. 2006-02-23 Erik Edelmann * module.c (read_module): Remove redundant code lines. From-SVN: r111398 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/module.c | 6 ------ 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e80c5768f5b..d78819f92e4 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2006-02-23 Erik Edelmann + + * module.c (read_module): Remove redundant code lines. + 2006-02-20 Rafael Ávila de Espíndola * 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 3c45e57cff1..0acc4748003 100644 --- 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). */ -- 2.30.2