From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Tue, 17 Nov 2015 19:51:10 +0000 (+0000)
Subject: primary.c (gfc_match_structure_constructor): Fix whitespace.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=490325650dbba6e7404b3fa19f078439c1434891;p=gcc.git

primary.c (gfc_match_structure_constructor): Fix whitespace.

2015-11-17  Steven G. Kargl  <kargl@gcc.gnu.org>

	* primary.c (gfc_match_structure_constructor): Fix whitespace.

From-SVN: r230495
---

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  <kargl@gcc.gnu.org>
+
+	* primary.c (gfc_match_structure_constructor): Fix whitespace.
+
 2015-11-17  Dominique d'Humieres <dominiq@lps.ens.fr>
 
 	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;
 }