diff options
author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-27 19:21:52 +0000 |
---|---|---|
committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-27 19:21:52 +0000 |
commit | 2168078b6c20284948b33995075b4d6c70fb3903 (patch) | |
tree | be82a309f3817052399ef60052788c41bf329635 /gcc/fortran/decl.c | |
parent | de634cac5fc8868765087511ed97efa6f7513081 (diff) | |
download | gcc-2168078b6c20284948b33995075b4d6c70fb3903.tar.gz |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130471 138bc75d-0d04-0410-961f-82ee72b054a4
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 d607435668e..a35071b5655 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 |