From 60e19868d71a7dc7681ebeb8e519ba65e6bdc919 Mon Sep 17 00:00:00 2001 From: jb Date: Wed, 10 Apr 2013 21:36:58 +0000 Subject: Replace enum gfc_try with bool type. 2013-04-11 Janne Blomqvist * gfortran.h: Remove enum gfc_try, replace gfc_try with bool type. * arith.c: Replace gfc_try with bool type. * array.c: Likewise. * check.c: Likewise. * class.c: Likewise. * cpp.c: Likewise. * cpp.h: Likewise. * data.c: Likewise. * data.h: Likewise. * decl.c: Likewise. * error.c: Likewise. * expr.c: Likewise. * f95-lang.c: Likewise. * interface.c: Likewise. * intrinsic.c: Likewise. * intrinsic.h: Likewise. * io.c: Likewise. * match.c: Likewise. * match.h: Likewise. * module.c: Likewise. * openmp.c: Likewise. * parse.c: Likewise. * parse.h: Likewise. * primary.c: Likewise. * resolve.c: Likewise. * scanner.c: Likewise. * simplify.c: Likewise. * symbol.c: Likewise. * trans-intrinsic.c: Likewise. * trans-openmp.c: Likewise. * trans-stmt.c: Likewise. * trans-types.c: Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@197682 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/arith.c | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'gcc/fortran/arith.c') diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 83a9e3c24ea..3339585988a 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -901,9 +901,9 @@ arith_power (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) if (gfc_init_expr_flag) { - if (gfc_notify_std (GFC_STD_F2003, "Noninteger " - "exponent in an initialization " - "expression at %L", &op2->where) == FAILURE) + if (!gfc_notify_std (GFC_STD_F2003, "Noninteger " + "exponent in an initialization " + "expression at %L", &op2->where)) { gfc_free_expr (result); return ARITH_PROHIBIT; @@ -926,9 +926,9 @@ arith_power (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) { if (gfc_init_expr_flag) { - if (gfc_notify_std (GFC_STD_F2003, "Noninteger " - "exponent in an initialization " - "expression at %L", &op2->where) == FAILURE) + if (!gfc_notify_std (GFC_STD_F2003, "Noninteger " + "exponent in an initialization " + "expression at %L", &op2->where)) { gfc_free_expr (result); return ARITH_PROHIBIT; @@ -1347,8 +1347,7 @@ reduce_binary_aa (arith (*eval) (gfc_expr *, gfc_expr *, gfc_expr **), gfc_expr *r; arith rc = ARITH_OK; - if (gfc_check_conformance (op1, op2, - "elemental binary operation") != SUCCESS) + if (!gfc_check_conformance (op1, op2, "elemental binary operation")) return ARITH_INCOMMENSURATE; head = gfc_constructor_copy (op1->value.constructor); -- cgit v1.2.1