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/resolve.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/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index c422eeb..69a0036 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -6569,6 +6569,18 @@ resolve_allocate_expr (gfc_expr *e, gfc_code *code) } } + if (e->ts.type == BT_CLASS) + { + /* Make sure the vtab symbol is present when + the module variables are generated. */ + gfc_typespec ts = e->ts; + if (code->expr3) + ts = code->expr3->ts; + else if (code->ext.alloc.ts.type == BT_DERIVED) + ts = code->ext.alloc.ts; + gfc_find_derived_vtab (ts.u.derived); + } + if (pointer || (dimension == 0 && codimension == 0)) goto success; |