From 490325650dbba6e7404b3fa19f078439c1434891 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Tue, 17 Nov 2015 19:51:10 +0000 Subject: [PATCH] primary.c (gfc_match_structure_constructor): Fix whitespace. 2015-11-17 Steven G. Kargl * primary.c (gfc_match_structure_constructor): Fix whitespace. From-SVN: r230495 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/primary.c | 30 +++++++++++++++--------------- 2 files changed, 19 insertions(+), 15 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e8e601ccac3..34bc058c3ee 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2015-11-17 Steven G. Kargl + + * primary.c (gfc_match_structure_constructor): Fix whitespace. + 2015-11-17 Dominique d'Humieres PR fortran/65751 diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index e39c89054d6..d1c17f00fee 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -2709,21 +2709,21 @@ gfc_match_structure_constructor (gfc_symbol *sym, gfc_expr **result) 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; - } - - *result = e; - return MATCH_YES; + 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; + } + + *result = e; + return MATCH_YES; } -- 2.30.2