diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2007-11-27 19:21:52 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2007-11-27 19:21:52 +0000 |
| commit | 0e5a218b31eb720caa70b19439e26f658f151070 (patch) | |
| tree | be82a309f3817052399ef60052788c41bf329635 /gcc/fortran/decl.c | |
| parent | f98e89380fd7ca4035221eaa9a8efad0e420d1b5 (diff) | |
| download | gcc-0e5a218b31eb720caa70b19439e26f658f151070.zip gcc-0e5a218b31eb720caa70b19439e26f658f151070.tar.gz gcc-0e5a218b31eb720caa70b19439e26f658f151070.tar.bz2 | |
re PR fortran/33541 (gfortran wrongly imports renamed-use-associated symbol unrenamed)
2007-11-27 Paul Thomas <pault@gcc.gnu.org>
PR fortran/33541
*interface.c (compare_actual_formal): Exclude assumed size
arrays from the possibility of scalar to array mapping.
* decl.c (get_proc_name): Fix whitespace problem.
PR fortran/34231
* gfortran.h : Add 'use_rename' bit to symbol_attribute.
* module.c : Add 'renamed' field to pointer_info.u.rsym.
(load_generic_interfaces): Add 'renamed' that is set after the
number_use_names is called. This is used to set the attribute
use_rename, which, in its turn identifies those symbols that
have not been renamed.
(load_needed): If pointer_info.u.rsym->renamed is set, then
set the use_rename attribute of the symbol.
(read_module): Correct an erroneous use of use_flag. Use the
renamed flag and the use_rename attribute to determine which
symbols are not renamed.
2007-11-27 Paul Thomas <pault@gcc.gnu.org>
PR fortran/33541
* gfortran.dg/use_11.f90: New test.
PR fortran/34231
* gfortran.dg/generic_15.f90: New test.
From-SVN: r130471
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index d607435..a35071b 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -728,9 +728,9 @@ get_proc_name (const char *name, gfc_symbol **result, bool module_fcn_entry) /* If the ENTRY proceeds its specification, we need to ensure that this does not raise a "has no IMPLICIT type" error. */ if (sym->ts.type == BT_UNKNOWN) - sym->attr.untyped = 1; + sym->attr.untyped = 1; - (*result)->ts = sym->ts; + (*result)->ts = sym->ts; /* Put the symbol in the procedure namespace so that, should the ENTRY preceed its specification, the specification |