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-stmt.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-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 430b10e3760..1b65f2ca78b 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -2661,7 +2661,7 @@ check_forall_dependencies (gfc_code *c, stmtblock_t *pre, stmtblock_t *post) return need_temp; new_symtree = NULL; - if (find_forall_index (c->expr1, lsym, 2) == SUCCESS) + if (find_forall_index (c->expr1, lsym, 2)) { forall_make_variable_temp (c, pre, post); need_temp = 0; @@ -4757,21 +4757,21 @@ gfc_trans_where (gfc_code * code) are the same. In short, this is VERY conservative and this is needed because the two loops, required by the standard are coalesced in gfc_trans_where_3. */ - if (!gfc_check_dependency(cblock->next->expr1, + if (!gfc_check_dependency (cblock->next->expr1, cblock->expr1, 0) - && !gfc_check_dependency(eblock->next->expr1, + && !gfc_check_dependency (eblock->next->expr1, cblock->expr1, 0) - && !gfc_check_dependency(cblock->next->expr1, + && !gfc_check_dependency (cblock->next->expr1, eblock->next->expr2, 1) - && !gfc_check_dependency(eblock->next->expr1, + && !gfc_check_dependency (eblock->next->expr1, cblock->next->expr2, 1) - && !gfc_check_dependency(cblock->next->expr1, + && !gfc_check_dependency (cblock->next->expr1, cblock->next->expr2, 1) - && !gfc_check_dependency(eblock->next->expr1, + && !gfc_check_dependency (eblock->next->expr1, eblock->next->expr2, 1) - && !gfc_check_dependency(cblock->next->expr1, + && !gfc_check_dependency (cblock->next->expr1, eblock->next->expr1, 0) - && !gfc_check_dependency(eblock->next->expr1, + && !gfc_check_dependency (eblock->next->expr1, cblock->next->expr1, 0)) return gfc_trans_where_3 (cblock, eblock); } |