This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[gfortran, committing] Fix formatting issues in arith.c
- From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
- To: GCC Fortran mailing list <fortran at gcc dot gnu dot org>,patch <gcc-patches at gcc dot gnu dot org>
- Date: Fri, 08 Oct 2004 20:54:48 +0200
- Subject: [gfortran, committing] Fix formatting issues in arith.c
I'm committing this patch which fixes a few formatting issues in arith.c
I verified that the compiler still builds, and am committing this under the
obviously correct rule.
- Tobi
Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/ChangeLog,v
retrieving revision 1.233
diff -u -p -r1.233 ChangeLog
--- ChangeLog 8 Oct 2004 00:16:27 -0000 1.233
+++ ChangeLog 8 Oct 2004 18:45:37 -0000
@@ -1,3 +1,7 @@
+2004-10-08 Tobias Schlueter <tobias.shclueter@physik.uni-muenchen.de>
+
+ * arith.c: Fix formatting issues.
+
2004-10-07 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/17676
Index: arith.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/arith.c,v
retrieving revision 1.15
diff -u -p -r1.15 arith.c
--- arith.c 27 Aug 2004 14:49:34 -0000 1.15
+++ arith.c 8 Oct 2004 18:45:37 -0000
@@ -108,8 +108,8 @@ arctangent2 (mpfr_t y, mpfr_t x, mpfr_t
if (mpfr_sgn (y) < 0)
mpfr_neg (result, result, GFC_RND_MODE);
}
- else
- {
+ else
+ {
if (mpfr_sgn (y) == 0)
mpfr_set_ui (result, 0, GFC_RND_MODE);
else
@@ -376,7 +376,7 @@ done:
/* Function to return a constant expression node of a given type and
kind. */
-gfc_expr *
+gfc_expr *
gfc_constant_result (bt type, int kind, locus * where)
{
gfc_expr *result;
@@ -541,7 +541,6 @@ gfc_range_check (gfc_expr * e)
static arith
gfc_arith_uplus (gfc_expr * op1, gfc_expr ** resultp)
{
-
*resultp = gfc_copy_expr (op1);
return ARITH_OK;
}
@@ -1110,7 +1109,6 @@ gfc_compare_expr (gfc_expr * op1, gfc_ex
static int
compare_complex (gfc_expr * op1, gfc_expr * op2)
{
-
return (mpfr_cmp (op1->value.complex.r, op2->value.complex.r) == 0
&& mpfr_cmp (op1->value.complex.i, op2->value.complex.i) == 0);
}
@@ -1431,7 +1429,6 @@ reduce_binary (arith (*eval) (gfc_expr *
gfc_expr * op1, gfc_expr * op2,
gfc_expr ** result)
{
-
if (op1->expr_type == EXPR_CONSTANT && op2->expr_type == EXPR_CONSTANT)
return eval (op1, op2, result);
@@ -1661,7 +1658,6 @@ eval_type_intrinsic0 (gfc_intrinsic_op o
static int
gfc_zero_size_array (gfc_expr * e)
{
-
if (e->expr_type != EXPR_ARRAY)
return 0;
@@ -1676,7 +1672,6 @@ gfc_zero_size_array (gfc_expr * e)
static gfc_expr *
reduce_binary0 (gfc_expr * op1, gfc_expr * op2)
{
-
if (gfc_zero_size_array (op1))
{
gfc_free_expr (op2);
@@ -1915,7 +1910,6 @@ gfc_convert_complex (gfc_expr * real, gf
static void
arith_error (arith rc, gfc_typespec * from, gfc_typespec * to, locus * where)
{
-
gfc_error ("%s converting %s to %s at %L", gfc_arith_error (rc),
gfc_typename (from), gfc_typename (to), where);