For the record, I committed the following: 2015-11-17 Steven G. Kargl <ka...@gcc.gnu.org>
* primary.c (gfc_match_structure_constructor): Fix whitespace. -- Steve
Index: primary.c =================================================================== --- primary.c (revision 230494) +++ primary.c (working copy) @@ -2709,21 +2709,21 @@ gfc_match_structure_constructor (gfc_sym e->value.function.esym = sym; e->symtree->n.sym->attr.generic = 1; - m = gfc_match_actual_arglist (0, &e->value.function.actual); - if (m != MATCH_YES) - { - gfc_free_expr (e); - return m; - } - - if (!gfc_convert_to_structure_constructor (e, sym, NULL, NULL, false)) - { - gfc_free_expr (e); - return MATCH_ERROR; - } + m = gfc_match_actual_arglist (0, &e->value.function.actual); + if (m != MATCH_YES) + { + gfc_free_expr (e); + return m; + } - *result = e; - return MATCH_YES; + if (!gfc_convert_to_structure_constructor (e, sym, NULL, NULL, false)) + { + gfc_free_expr (e); + return MATCH_ERROR; + } + + *result = e; + return MATCH_YES; }