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 e8e601ccac3385927005a468f3ac8973aed976bf..34bc058c3eefb1da9db8fcf9ba10515574fa8604 100644 (file)
--- 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 e39c89054d6a357547074d8e19c3050d9b404127..d1c17f00fee84a3623281c493176233a46eec7bf 100644 (file)
--- 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;
 }