diff options
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-10 21:36:58 +0000 |
|---|---|---|
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-10 21:36:58 +0000 |
| commit | 60e19868d71a7dc7681ebeb8e519ba65e6bdc919 (patch) | |
| tree | 3848fcd998968ff83378e8ad827c05578ce1d1fb /gcc/fortran/trans-intrinsic.c | |
| parent | a1adea345cf252d6240a4d29b0d47e592e610df9 (diff) | |
| download | gcc-60e19868d71a7dc7681ebeb8e519ba65e6bdc919.tar.gz | |
Replace enum gfc_try with bool type.
2013-04-11 Janne Blomqvist <jb@gcc.gnu.org>
* 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
Diffstat (limited to 'gcc/fortran/trans-intrinsic.c')
| -rw-r--r-- | gcc/fortran/trans-intrinsic.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 9b2cc19509e..2a16059c4c5 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -2192,9 +2192,9 @@ gfc_conv_intrinsic_ttynam (gfc_se * se, gfc_expr * expr) minmax (a1, a2, a3, ...) { mvar = a1; - if (a2 .op. mvar || isnan(mvar)) + if (a2 .op. mvar || isnan (mvar)) mvar = a2; - if (a3 .op. mvar || isnan(mvar)) + if (a3 .op. mvar || isnan (mvar)) mvar = a3; ... return mvar @@ -2749,7 +2749,7 @@ gfc_conv_intrinsic_arith (gfc_se * se, gfc_expr * expr, enum tree_code op, if (norm2) { - /* if (x(i) != 0.0) + /* if (x (i) != 0.0) { absX = abs(x(i)) if (absX > scale) @@ -3104,7 +3104,7 @@ gfc_conv_intrinsic_minmaxloc (gfc_se * se, gfc_expr * expr, enum tree_code op) else { mpz_t asize; - if (gfc_array_size (arrayexpr, &asize) == SUCCESS) + if (gfc_array_size (arrayexpr, &asize)) { nonempty = gfc_conv_mpz_to_tree (asize, gfc_index_integer_kind); mpz_clear (asize); @@ -3594,7 +3594,7 @@ gfc_conv_intrinsic_minmaxval (gfc_se * se, gfc_expr * expr, enum tree_code op) else { mpz_t asize; - if (gfc_array_size (arrayexpr, &asize) == SUCCESS) + if (gfc_array_size (arrayexpr, &asize)) { nonempty = gfc_conv_mpz_to_tree (asize, gfc_index_integer_kind); mpz_clear (asize); |