Message ID | 52ED41CD.6030205@sfr.fr |
---|---|
State | New |
Headers | show |
Dear Mikael, We seem to be breaking records tonight :-) OK by me for trunk, 4.7 and 4.8. Thanks! Paul On 1 February 2014 19:49, Mikael Morin <mikael.morin@sfr.fr> wrote: > Hello, > > here is a fix for PR57033. > The problem was gfc_convert_to_structure_constructor calling itself > recursively and changing `actual' behind its back without going through > the loop condition. > The fix is pretty obvious; I thought there was something missing (see > the PR) but on second thought, it seems to be correct. > > regression tested on x86_64-unknown-linux-gnu; OK for trunk and then > 4.8/4.7? > > Mikael >
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index c77b4ec..7d7fbad 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -2544,7 +2544,8 @@ gfc_convert_to_structure_constructor (gfc_expr *e, gfc_symbol *sym, gfc_expr **c if (parent && !comp) break; - actual = actual->next; + if (actual) + actual = actual->next; } if (!build_actual_constructor (&comp_head, &ctor_head, sym))