Message ID | 4CF19B05.3060201@frontier.com |
---|---|
State | New |
Headers | show |
On Sat, Nov 27, 2010 at 03:57:57PM -0800, Jerry DeLisle wrote: > Hi all, > > This patch is simple and obvious. Credit goes to Tobias for the idea. I > tracked down the correct function to put this and fixed up a test case. > > Regression tested on x86-64-linux-gnu. > > As a side note, I tested changing all cases of gfc_start_block with > gfc_init_block in trans-decl.c and also got no regressions. I leave that > idea for later discussion. > > Test case attached. > > OK for Trunk? > OK
Index: trans-decl.c =================================================================== --- trans-decl.c (revision 167208) +++ trans-decl.c (working copy) @@ -2952,7 +2968,7 @@ gfc_trans_auto_character_variable (gfc_symbol * sy 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);