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 77ab72f1371cd9cc3d1ef5939c908f3b3d8e835b..55380a01f57a19f2876735a34f7fc30c44079d4e 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 c396653fa1c63baf49d2f1412d65cae0f7b080b9..ad547a15e47e0093481f0cd577a9ec84026b035d 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);