diff options
author | Tobias Burnus <burnus@gcc.gnu.org> | 2013-04-12 09:41:50 +0200 |
---|---|---|
committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-04-12 09:41:50 +0200 |
commit | f118468ab665a749c16e65f53057ca1278b3ceec (patch) | |
tree | 41fd411a215082874b62193b735de66401499a64 /gcc/fortran/trans.h | |
parent | bb50698284eaaf849182f78779af4b3fde7503e1 (diff) | |
download | gcc-f118468ab665a749c16e65f53057ca1278b3ceec.zip gcc-f118468ab665a749c16e65f53057ca1278b3ceec.tar.gz gcc-f118468ab665a749c16e65f53057ca1278b3ceec.tar.bz2 |
re PR fortran/56845 ([OOP] _vptr not set to declared type for CLASS + SAVE)
2013-04-12 Tobias Burnus <burnus@net-b.de>
PR fortran/56845
* trans-decl.c (gfc_trans_deferred_vars): Set _vptr for
allocatable static BT_CLASS.
* trans-expr.c (gfc_class_set_static_fields): New function.
* trans.h (gfc_class_set_static_fields): New prototype.
2013-04-12 Tobias Burnus <burnus@net-b.de>
PR fortran/56845
* gfortran.dg/class_allocate_14.f90: New.
* gfortran.dg/coarray_lib_alloc_2.f90: Update
* scan-tree-dump-times.
* gfortran.dg/coarray_lib_alloc_3.f90: New.
From-SVN: r197844
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 03adfdd..ad6a105 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); +tree gfc_class_set_static_fields (tree, tree, tree); tree gfc_vtable_hash_get (tree); tree gfc_vtable_size_get (tree); tree gfc_vtable_extends_get (tree); |