diff options
author | Tobias Burnus <burnus@net-b.de> | 2013-05-28 17:24:35 +0200 |
---|---|---|
committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-05-28 17:24:35 +0200 |
commit | 4fb5478c936efb66fb417557182cb7cf7f4513b4 (patch) | |
tree | 4946cdd562283965bd2d2588c37bb5e905e50166 /gcc/fortran/trans.h | |
parent | 4fdf9c1ec0cc0be111e5d22d4da1cfa36a384c42 (diff) | |
download | gcc-4fb5478c936efb66fb417557182cb7cf7f4513b4.zip gcc-4fb5478c936efb66fb417557182cb7cf7f4513b4.tar.gz gcc-4fb5478c936efb66fb417557182cb7cf7f4513b4.tar.bz2 |
trans-expr.c (gfc_conv_procedure_call): Deallocate polymorphic arrays for allocatable intent(out) dummies.
2013-05-28 Tobias Burnus <burnus@net-b.de>
* trans-expr.c (gfc_conv_procedure_call): Deallocate
polymorphic arrays for allocatable intent(out) dummies.
(gfc_reset_vptr): New function, moved from trans-stmt.c
and extended.
* trans-stmt.c (reset_vptr): Remove.
(gfc_trans_deallocate): Update calls.
* trans.h (gfc_reset_vptr): New prototype.
2013-05-28 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/class_array_16.f90: New.
From-SVN: r199383
Diffstat (limited to 'gcc/fortran/trans.h')
-rw-r--r-- | gcc/fortran/trans.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index ad6a105..0c0fe5d 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -341,6 +341,7 @@ gfc_wrapped_block; /* Class API functions. */ tree gfc_class_data_get (tree); tree gfc_class_vptr_get (tree); +void gfc_reset_vptr (stmtblock_t *, gfc_expr *); tree gfc_class_set_static_fields (tree, tree, tree); tree gfc_vtable_hash_get (tree); tree gfc_vtable_size_get (tree); |