diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-01-04 13:59:23 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-01-04 13:59:23 +0100 |
| commit | 844ba4551066e95a7c026f77db6d068253d12a65 (patch) | |
| tree | ad7aeb9ba407e12cd837ac0b835b5dbf1b16ac44 /gcc/fortran/class.c | |
| parent | 55c623b524d193f97e78406ea83656b77361ac0f (diff) | |
| download | gcc-844ba4551066e95a7c026f77db6d068253d12a65.zip gcc-844ba4551066e95a7c026f77db6d068253d12a65.tar.gz gcc-844ba4551066e95a7c026f77db6d068253d12a65.tar.bz2 | |
re PR fortran/46448 ([OOP] symbol `__copy_...' is already defined)
2011-01-04 Janus Weil <janus@gcc.gnu.org>
PR fortran/46448
* class.c (gfc_find_derived_vtab): Set the module field for the copying
routine to make sure it receives module name mangling.
2011-01-04 Janus Weil <janus@gcc.gnu.org>
PR fortran/46448
* gfortran.dg/class_34.f90: New.
From-SVN: r168464
Diffstat (limited to 'gcc/fortran/class.c')
| -rw-r--r-- | gcc/fortran/class.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 5b6851b..7095d3e 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -528,6 +528,8 @@ gfc_find_derived_vtab (gfc_symbol *derived) sub_ns->proc_name = copy; copy->attr.flavor = FL_PROCEDURE; copy->attr.if_source = IFSRC_DECL; + if (ns->proc_name->attr.flavor == FL_MODULE) + copy->module = ns->proc_name->name; gfc_set_sym_referenced (copy); /* Set up formal arguments. */ gfc_get_symbol ("src", sub_ns, &src); |