From bc2a4733e2715627ca95a1bccda96a9c2be30ea5 Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Sat, 25 Apr 2009 10:11:48 +0200 Subject: re PR fortran/39688 (IMPORT of derived type fails) 2009-04-25 Janus Weil PR fortran/39688 * decl.c (gfc_match_import): Use 'sym->name' instead of 'name'. They differ if the symbol has been use-renamed. 2009-04-25 Janus Weil PR fortran/39688 * gfortran.dg/import7.f90: New. From-SVN: r146762 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/decl.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9957579..d39b713 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2009-04-25 Janus Weil + + PR fortran/39688 + * decl.c (gfc_match_import): Use 'sym->name' instead of 'name'. + They differ if the symbol has been use-renamed. + 2009-04-24 Ian Lance Taylor * gfortran.h (enum gfc_symbol_type): New named enum type, broken diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 1a8d6dc..eaa310c 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2741,7 +2741,7 @@ gfc_match_import (void) goto next_item; } - st = gfc_new_symtree (&gfc_current_ns->sym_root, name); + st = gfc_new_symtree (&gfc_current_ns->sym_root, sym->name); st->n.sym = sym; sym->refs++; sym->attr.imported = 1; -- cgit v1.1