diff options
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-03-31 20:03:23 +0000 |
|---|---|---|
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-03-31 20:03:23 +0000 |
| commit | bd6190474abf336e4892e6d45040a28fe2c0d21d (patch) | |
| tree | f9137ff38dfef4f8d462e92348dbae3950b9f0b4 /gcc/fortran/trans-expr.c | |
| parent | 9ff1ba0af500959f6f725e54c4be2395cc741412 (diff) | |
| download | ppe42-gcc-bd6190474abf336e4892e6d45040a28fe2c0d21d.tar.gz ppe42-gcc-bd6190474abf336e4892e6d45040a28fe2c0d21d.zip | |
2009-03-31 Paul Thomas <pault@gcc.gnu.org>
PR fortran/38915
* trans-expr.c (gfc_trans_assignment_1): Ensure temporaries
have a string_length.
2009-03-31 Paul Thomas <pault@gcc.gnu.org>
PR fortran/38915
* gfortran.dg/char_length_15.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145370 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 91485d1d09c..dcbccefcaea 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -4585,6 +4585,7 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * expr2, bool init_flag) stmtblock_t body; bool l_is_temp; bool scalar_to_array; + tree string_length; /* Assignment of the form lhs = rhs. */ gfc_start_block (&block); @@ -4660,10 +4661,18 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * expr2, bool init_flag) /* Translate the expression. */ gfc_conv_expr (&rse, expr2); + /* Stabilize a string length for temporaries. */ + if (expr2->ts.type == BT_CHARACTER) + string_length = gfc_evaluate_now (rse.string_length, &rse.pre); + else + string_length = NULL_TREE; + if (l_is_temp) { gfc_conv_tmp_array_ref (&lse); gfc_advance_se_ss_chain (&lse); + if (expr2->ts.type == BT_CHARACTER) + lse.string_length = string_length; } else gfc_conv_expr (&lse, expr1); @@ -4718,6 +4727,9 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * expr2, bool init_flag) gcc_assert (lse.ss == gfc_ss_terminator && rse.ss == gfc_ss_terminator); + if (expr2->ts.type == BT_CHARACTER) + rse.string_length = string_length; + tmp = gfc_trans_scalar_assign (&lse, &rse, expr1->ts, false, false); gfc_add_expr_to_block (&body, tmp); |
