iresolve.c (is_trig_resolved, [...]): Formatting fixes.

	* iresolve.c (is_trig_resolved, resolve_trig_call): Formatting fixes.
	* simplify.c (simplify_trig_call, degrees_f, radians_f,
	gfc_simplify_atrigd, gfc_simplify_cotan): Likewise.

From-SVN: r241010

1 files changed, 22 insertions, 24 deletions

diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c
index 9ae0b6e..078e47d 100644
--- a/gcc/fortran/iresolve.c
+++ b/gcc/fortran/iresolve.c
@@ -685,8 +685,8 @@ is_trig_resolved (gfc_expr *f)
 {
   /* We know we've already resolved the function if we see the lib call
      starting with '__'.  */
-  return f->value.function.name != NULL
-    && 0 == strncmp ("__", f->value.function.name, 2);
+  return (f->value.function.name != NULL
+	  && strncmp ("__", f->value.function.name, 2) == 0);
 }
 
 /* Return a shallow copy of the function expression f.  The original expression
@@ -2744,28 +2744,26 @@ resolve_trig_call (gfc_expr *f, gfc_expr *x)
 {
   switch (f->value.function.isym->id)
     {
-      case GFC_ISYM_ACOS:
-	return gfc_resolve_acos (f, x);
-      case GFC_ISYM_ASIN:
-	return gfc_resolve_asin (f, x);
-      case GFC_ISYM_ATAN:
-	return gfc_resolve_atan (f, x);
-      case GFC_ISYM_ATAN2:
-	/* NB. arg3 is unused for atan2 */
-	return gfc_resolve_atan2 (f, x, NULL);
-      case GFC_ISYM_COS:
-	return gfc_resolve_cos (f, x);
-      case GFC_ISYM_COTAN:
-	return gfc_resolve_cotan (f, x);
-      case GFC_ISYM_SIN:
-	return gfc_resolve_sin (f, x);
-      case GFC_ISYM_TAN:
-	return gfc_resolve_tan (f, x);
-      default:
-	break;
-    }
-
-  gcc_unreachable ();
+    case GFC_ISYM_ACOS:
+      return gfc_resolve_acos (f, x);
+    case GFC_ISYM_ASIN:
+      return gfc_resolve_asin (f, x);
+    case GFC_ISYM_ATAN:
+      return gfc_resolve_atan (f, x);
+    case GFC_ISYM_ATAN2:
+      /* NB. arg3 is unused for atan2 */
+      return gfc_resolve_atan2 (f, x, NULL);
+    case GFC_ISYM_COS:
+      return gfc_resolve_cos (f, x);
+    case GFC_ISYM_COTAN:
+      return gfc_resolve_cotan (f, x);
+    case GFC_ISYM_SIN:
+      return gfc_resolve_sin (f, x);
+    case GFC_ISYM_TAN:
+      return gfc_resolve_tan (f, x);
+    default:
+      gcc_unreachable ();
+    }
 }
 
 /* Resolve degree trig function as trigd (x) = trig (radians (x)).  */