diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-07-15 10:17:24 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-07-15 10:17:24 +0200 |
| commit | 895a0c2df3542769fb381f0792cb543da01229ec (patch) | |
| tree | c083b1ac33eb85ae9db96988ef88e86c54a5427d /gcc/fortran/trans.h | |
| parent | 0768ca33ac7d3331413be79cbe06930ec3bab14c (diff) | |
| download | gcc-895a0c2df3542769fb381f0792cb543da01229ec.zip gcc-895a0c2df3542769fb381f0792cb543da01229ec.tar.gz gcc-895a0c2df3542769fb381f0792cb543da01229ec.tar.bz2 | |
re PR fortran/37336 ([F03] Finish derived-type finalization)
2013-07-15 Tobias Burnus <burnus@net-b.de>
PR fortran/37336
* trans.c (gfc_add_comp_finalizer_call): New function.
* trans.h (gfc_add_comp_finalizer_call): New prototype.
* trans-array.c (structure_alloc_comps): Call it.
2013-07-15 Tobias Burnus <burnus@net-b.de>
PR fortran/37336
* gfortran.dg/finalize_18.f90: New.
From-SVN: r200954
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 06cb63d..424ce7a 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -353,6 +353,8 @@ tree gfc_get_vptr_from_expr (tree); tree gfc_get_class_array_ref (tree, tree); tree gfc_copy_class_to_class (tree, tree, tree); bool gfc_add_finalizer_call (stmtblock_t *, gfc_expr *); +bool gfc_add_comp_finalizer_call (stmtblock_t *, tree, gfc_component *, bool); + void gfc_conv_derived_to_class (gfc_se *, gfc_expr *, gfc_typespec, tree, bool, bool); void gfc_conv_class_to_class (gfc_se *, gfc_expr *, gfc_typespec, bool, bool, |