diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-05-31 11:41:53 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-05-31 11:41:53 +0200 |
| commit | 2bdf1c75e432bb2a20e9b6de02c015736b22aa44 (patch) | |
| tree | 4511aef20055a51c7a4900e5ca7da1efa573f5b8 /gcc/fortran/trans-array.h | |
| parent | b6af05a9b34eab3b8aafa34b54adbec2c70a304f (diff) | |
| download | gcc-2bdf1c75e432bb2a20e9b6de02c015736b22aa44.zip gcc-2bdf1c75e432bb2a20e9b6de02c015736b22aa44.tar.gz gcc-2bdf1c75e432bb2a20e9b6de02c015736b22aa44.tar.bz2 | |
re PR fortran/57456 ([OOP] CLASS + CHARACTER ALLOCATE with typespec: For arrays, the typespec is ignored)
2013-05-31 Tobias Burnus <burnus@net-b.de>
PR fortran/57456
* trans-array.c (gfc_array_init_size): Use passed type spec,
when available.
(gfc_array_allocate): Pass typespec on.
* trans-array.h (gfc_array_allocate): Update prototype.
* trans-stmt.c (gfc_trans_allocate): Pass typespec on.
2013-05-31 Tobias Burnus <burnus@net-b.de>
PR fortran/57456
* gfortran.dg/class_array_17.f90: New.
From-SVN: r199528
Diffstat (limited to 'gcc/fortran/trans-array.h')
| -rw-r--r-- | gcc/fortran/trans-array.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.h b/gcc/fortran/trans-array.h index 6f44d79..d00e156 100644 --- a/gcc/fortran/trans-array.h +++ b/gcc/fortran/trans-array.h @@ -24,7 +24,7 @@ tree gfc_array_deallocate (tree, tree, tree, tree, tree, gfc_expr*); /* Generate code to initialize and allocate an array. Statements are added to se, which should contain an expression for the array descriptor. */ bool gfc_array_allocate (gfc_se *, gfc_expr *, tree, tree, tree, tree, - tree, tree *, gfc_expr *); + tree, tree *, gfc_expr *, gfc_typespec *); /* Allow the bounds of a loop to be set from a callee's array spec. */ void gfc_set_loop_bounds_from_array_spec (gfc_interface_mapping *, |