From 323cea66a619c8621b35ac27defbd1941f89f213 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sun, 28 Nov 2010 08:42:56 +0100 Subject: [PATCH] re PR fortran/46678 (Wrong code with strings) 2010-11-27 Tobias Burnus Jerry DeLisle PR fortran/46678 trans-decl.c (gfc_trans_auto_character_variable): Use gfc_init_block instead of gfc_start_block. Co-Authored-By: Jerry DeLisle From-SVN: r167218 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/trans-decl.c | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0f611b36c6a..46d0c4fd0a5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2010-11-27 Tobias Burnus + Jerry DeLisle + + PR fortran/46678 + trans-decl.c (gfc_trans_auto_character_variable): Use gfc_init_block + instead of gfc_start_block. + 2010-11-27 Jerry DeLisle PR fortran/46301 diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 3eb70f8c089..b9c14169eec 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -2952,7 +2952,7 @@ gfc_trans_auto_character_variable (gfc_symbol * sym, gfc_wrapped_block * block) gcc_assert (sym->backend_decl); gcc_assert (sym->ts.u.cl && sym->ts.u.cl->length); - gfc_start_block (&init); + gfc_init_block (&init); /* Evaluate the string length expression. */ gfc_conv_string_length (sym->ts.u.cl, NULL, &init);