trans-intrinsic.c (conv_co_minmaxsum): Change condition style.

2014-05-08  Tobias Burnus  <burnus@net-b.de>

        * trans-intrinsic.c (conv_co_minmaxsum): Change condition style.

From-SVN: r210224

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 07a84d4..6c9477f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,9 @@
 2014-05-08  Tobias Burnus  <burnus@net-b.de>
 
+       * trans-intrinsic.c (conv_co_minmaxsum): Change condition style.
+
+2014-05-08  Tobias Burnus  <burnus@net-b.de>
+
        * check.c (check_co_minmaxsum, gfc_check_co_minmax,
        gfc_check_co_sum): New.
        * error.c (gfc_notify_std): Update -std=f2008ts.

diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index 755d3d4..eaa56ed 100644 (file)
--- a/gcc/fortran/trans-intrinsic.c
+++ b/gcc/fortran/trans-intrinsic.c
@@ -7605,11 +7605,10 @@ conv_co_minmaxsum (gfc_code *code)
     fndecl = gfor_fndecl_co_max;
   else if (code->resolved_isym->id == GFC_ISYM_CO_MIN)
     fndecl = gfor_fndecl_co_min;
+  else if (code->resolved_isym->id == GFC_ISYM_CO_SUM)
+    fndecl = gfor_fndecl_co_sum;
   else
-    {
-      gcc_assert (code->resolved_isym->id == GFC_ISYM_CO_SUM);
-      fndecl = gfor_fndecl_co_sum;
-    }
+    gcc_unreachable ();
 
   if (code->resolved_isym->id == GFC_ISYM_CO_SUM)
     fndecl = build_call_expr_loc (input_location, fndecl, 6, array, vec,