From 490325650dbba6e7404b3fa19f078439c1434891 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Tue, 17 Nov 2015 19:51:10 +0000 Subject: 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(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e8e601c..34bc058 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 e39c890..d1c17f0 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; } -- cgit v1.1