diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2010-07-29 20:14:16 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2010-07-29 20:14:16 +0200 |
| commit | b2a5eb7501657692da7d9d294758753e122b3691 (patch) | |
| tree | a67dba99dceef9faa3716776308033df861b23c1 /gcc/fortran/trans-stmt.h | |
| parent | a3378ceac91930adf5d5f2f95ca2874c14b6f6f1 (diff) | |
| download | gcc-b2a5eb7501657692da7d9d294758753e122b3691.zip gcc-b2a5eb7501657692da7d9d294758753e122b3691.tar.gz gcc-b2a5eb7501657692da7d9d294758753e122b3691.tar.bz2 | |
re PR fortran/45004 ([OOP] Segfault with allocatable scalars and move_alloc)
2010-07-29 Janus Weil <janus@gcc.gnu.org>
PR fortran/45004
* trans-stmt.h (gfc_trans_class_init_assign): New prototype.
(gfc_trans_class_assign): Modified prototype.
* trans.h (gfc_conv_intrinsic_move_alloc): New prototype.
* trans-expr.c (gfc_trans_class_init_assign): Split off from ...
(gfc_trans_class_assign): ... here. Modified actual arguments.
* trans-intrinsic.c (gfc_conv_intrinsic_move_alloc): New function to
handle the MOVE_ALLOC intrinsic with scalar and class arguments.
* trans.c (trans_code): Call 'gfc_conv_intrinsic_move_alloc'.
2010-07-29 Janus Weil <janus@gcc.gnu.org>
PR fortran/45004
* gfortran.dg/move_alloc_2.f90: New.
From-SVN: r162688
Diffstat (limited to 'gcc/fortran/trans-stmt.h')
| -rw-r--r-- | gcc/fortran/trans-stmt.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/trans-stmt.h b/gcc/fortran/trans-stmt.h index b349545..8b77750 100644 --- a/gcc/fortran/trans-stmt.h +++ b/gcc/fortran/trans-stmt.h @@ -32,7 +32,8 @@ tree gfc_trans_code_cond (gfc_code *, tree); tree gfc_trans_assign (gfc_code *); tree gfc_trans_pointer_assign (gfc_code *); tree gfc_trans_init_assign (gfc_code *); -tree gfc_trans_class_assign (gfc_code *code); +tree gfc_trans_class_init_assign (gfc_code *); +tree gfc_trans_class_assign (gfc_expr *, gfc_expr *, gfc_exec_op); /* trans-stmt.c */ tree gfc_trans_cycle (gfc_code *); |