diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-06-04 21:04:32 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-06-04 21:04:32 +0000 |
| commit | da08da6924795bffe4adc8e53feb53a3ff311ff7 (patch) | |
| tree | aaf7d563098fc653c55f7e39fc0a07696b054878 /gcc/fortran/resolve.c | |
| parent | ef9af38274f1ff9846643e0a61dbe8cf5ae33b4b (diff) | |
| download | ppe42-gcc-da08da6924795bffe4adc8e53feb53a3ff311ff7.tar.gz ppe42-gcc-da08da6924795bffe4adc8e53feb53a3ff311ff7.zip | |
2008-06-04 Janus Weil <janus@gcc.gnu.org>
PR fortran/36322
PR fortran/36275
* resolve.c (resolve_symbol): Correctly copy the interface for a
PROCEDURE declaration.
2008-06-04 Janus Weil <janus@gcc.gnu.org>
PR fortran/36322
PR fortran/36275
* gfortran.dg/proc_decl_2.f90: Extended.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136372 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index c9809351c94..b5b76b6f7a0 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -7893,11 +7893,12 @@ resolve_symbol (gfc_symbol *sym) /* Get the attributes from the interface (now resolved). */ if (sym->ts.interface->attr.if_source || sym->ts.interface->attr.intrinsic) { - sym->ts.type = sym->ts.interface->ts.type; - sym->ts.kind = sym->ts.interface->ts.kind; - sym->attr.function = sym->ts.interface->attr.function; - sym->attr.subroutine = sym->ts.interface->attr.subroutine; - copy_formal_args (sym, sym->ts.interface); + gfc_symbol *ifc = sym->ts.interface; + sym->ts = ifc->ts; + sym->ts.interface = ifc; + sym->attr.function = ifc->attr.function; + sym->attr.subroutine = ifc->attr.subroutine; + copy_formal_args (sym, ifc); } else if (sym->ts.interface->name[0] != '\0') { |
