diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2010-08-04 21:49:19 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2010-08-04 21:49:19 +0200 |
| commit | e10f52d09976c17ebd5fadeb4a0e09a854d3814d (patch) | |
| tree | 3fa3d8617306adc01c4a2d8af8ed81aff29cc0a0 /gcc/fortran/class.c | |
| parent | 0e884a9464e6941b5fef6b08fdcebee368799c73 (diff) | |
| download | gcc-e10f52d09976c17ebd5fadeb4a0e09a854d3814d.zip gcc-e10f52d09976c17ebd5fadeb4a0e09a854d3814d.tar.gz gcc-e10f52d09976c17ebd5fadeb4a0e09a854d3814d.tar.bz2 | |
re PR fortran/42207 ([OOP] Compile-time errors on typed allocation and pointer function result assignment)
2010-08-04 Janus Weil <janus@gcc.gnu.org>
PR fortran/42207
PR fortran/44064
PR fortran/44065
* class.c (gfc_find_derived_vtab): Do not generate vtabs for class
container types. Do not artificially increase refs. Commit symbols one
by one.
* interface.c (compare_parameter): Make sure vtabs are present before
generating module variables.
* resolve.c (resolve_allocate_expr): Ditto.
2010-08-04 Janus Weil <janus@gcc.gnu.org>
PR fortran/42207
PR fortran/44064
PR fortran/44065
* gfortran.dg/class_25.f03: New.
* gfortran.dg/class_26.f03: New.
From-SVN: r162879
Diffstat (limited to 'gcc/fortran/class.c')
| -rw-r--r-- | gcc/fortran/class.c | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 558fda2..7dc9344 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -322,13 +322,16 @@ gfc_find_derived_vtab (gfc_symbol *derived) gfc_namespace *ns; gfc_symbol *vtab = NULL, *vtype = NULL, *found_sym = NULL; char name[2 * GFC_MAX_SYMBOL_LEN + 8]; - - ns = gfc_current_ns; - - for (; ns; ns = ns->parent) + + /* Find the top-level namespace (MODULE or PROGRAM). */ + for (ns = gfc_current_ns; ns; ns = ns->parent) if (!ns->parent) break; + /* If the type is a class container, use the underlying derived type. */ + if (derived->attr.is_class) + derived = gfc_get_derived_super_type (derived); + if (ns) { sprintf (name, "vtab$%s", derived->name); @@ -338,12 +341,13 @@ gfc_find_derived_vtab (gfc_symbol *derived) { gfc_get_symbol (name, ns, &vtab); vtab->ts.type = BT_DERIVED; - vtab->attr.flavor = FL_VARIABLE; + if (gfc_add_flavor (&vtab->attr, FL_VARIABLE, NULL, + &gfc_current_locus) == FAILURE) + goto cleanup; vtab->attr.target = 1; vtab->attr.save = SAVE_EXPLICIT; vtab->attr.vtab = 1; vtab->attr.access = ACCESS_PUBLIC; - vtab->refs++; gfc_set_sym_referenced (vtab); sprintf (name, "vtype$%s", derived->name); @@ -358,7 +362,6 @@ gfc_find_derived_vtab (gfc_symbol *derived) NULL, &gfc_current_locus) == FAILURE) goto cleanup; vtype->attr.access = ACCESS_PUBLIC; - vtype->refs++; gfc_set_sym_referenced (vtype); /* Add component '$hash'. */ @@ -421,7 +424,11 @@ cleanup: /* It is unexpected to have some symbols added at resolution or code generation time. We commit the changes in order to keep a clean state. */ if (found_sym) - gfc_commit_symbols (); + { + gfc_commit_symbol (vtab); + if (vtype) + gfc_commit_symbol (vtype); + } else gfc_undo_symbols (); |