From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 17 Nov 2015 19:51:10 +0000 (+0000)
Subject: 2015-11-17  Steven G. Kargl  <kargl@gcc.gnu.org>
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=77511595a0954c5a2e69dc584c65aa69612e2614;p=thirdparty%2Fgcc.git

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

	* primary.c (gfc_match_structure_constructor): Fix whitespace.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@230495 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e8e601ccac33..34bc058c3eef 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 e39c89054d6a..d1c17f00fee8 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;
 }