diff options
| author | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-03-29 18:54:24 +0200 |
|---|---|---|
| committer | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-03-29 18:54:24 +0200 |
| commit | 728557fda26f7ffa540bb2e614e4debae366d2ad (patch) | |
| tree | e4e0a9b1cd9f9d0b25895fe00681f2f8dc699f04 /gcc/fortran/trans.h | |
| parent | da178d566a0731534f369273fa9480e1210cb01c (diff) | |
| download | gcc-728557fda26f7ffa540bb2e614e4debae366d2ad.zip gcc-728557fda26f7ffa540bb2e614e4debae366d2ad.tar.gz gcc-728557fda26f7ffa540bb2e614e4debae366d2ad.tar.bz2 | |
re PR fortran/70397 (ice while allocating ultimate polymorphic)
gcc/fortran/ChangeLog:
2016-03-29 Andre Vehreschild <vehre@gcc.gnu.org>
PR fortran/70397
* trans-expr.c (gfc_class_len_or_zero_get): Add function to return a
constant zero tree, when the class to get the _len component from is
not unlimited polymorphic.
(gfc_copy_class_to_class): Use the new function.
* trans.h: Added interface of new function gfc_class_len_or_zero_get.
gcc/testsuite/ChangeLog:
2016-03-29 Andre Vehreschild <vehre@gcc.gnu.org>
PR fortran/70397
* gfortran.dg/unlimited_polymorphic_25.f90: New test.
* gfortran.dg/unlimited_polymorphic_26.f90: New test.
From-SVN: r234528
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 add0cea..512615a 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -365,6 +365,7 @@ tree gfc_class_set_static_fields (tree, tree, tree); tree gfc_class_data_get (tree); tree gfc_class_vptr_get (tree); tree gfc_class_len_get (tree); +tree gfc_class_len_or_zero_get (tree); gfc_expr * gfc_find_and_cut_at_last_class_ref (gfc_expr *); /* Get an accessor to the class' vtab's * field, when a class handle is available. */ |