simplify.c (gfc_simplify_repeat): Fix a misplaced closing ')'.

2016-09-14  Bernd Edlinger  <bernd.edlinger@hotmail.de>

        * simplify.c (gfc_simplify_repeat): Fix a misplaced closing ')'.

From-SVN: r240142

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 77ab72f..55380a0 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2016-09-14  Bernd Edlinger  <bernd.edlinger@hotmail.de>
+
+       * simplify.c (gfc_simplify_repeat): Fix a misplaced closing ')'.
+
 2016-09-13  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        PR fortran/77420

diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index c396653..ad547a1 100644 (file)
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -5127,7 +5127,7 @@ gfc_simplify_repeat (gfc_expr *e, gfc_expr *n)
 
   if (len ||
       (e->ts.u.cl->length &&
-       mpz_sgn (e->ts.u.cl->length->value.integer)) != 0)
+       mpz_sgn (e->ts.u.cl->length->value.integer) != 0))
     {
       const char *res = gfc_extract_int (n, &ncop);
       gcc_assert (res == NULL);