diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2010-09-08 20:00:13 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2010-09-08 20:00:13 +0200 |
| commit | 7d124e66cab77a2ca9e09518a36bdd3b6e5c830b (patch) | |
| tree | b7d37d3efea905d3ac7ddccc23e0359eb0881f8d | |
| parent | 19ed9d7bb5ca92a3e70f5e590de2647036b1ab13 (diff) | |
| download | gcc-7d124e66cab77a2ca9e09518a36bdd3b6e5c830b.zip gcc-7d124e66cab77a2ca9e09518a36bdd3b6e5c830b.tar.gz gcc-7d124e66cab77a2ca9e09518a36bdd3b6e5c830b.tar.bz2 | |
* frontend-passes.c (optimize_code_node): Walk block chain by default.
From-SVN: r164014
| -rw-r--r-- | gcc/fortran/ChangeLog | 2 | ||||
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 700fe91..4faf639 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,7 @@ 2010-09-08 Jakub Jelinek <jakub@redhat.com> + * frontend-passes.c (optimize_code_node): Walk block chain by default. + PR fortran/45597 * trans-openmp.c (gfc_trans_omp_do): Store exit/cycle labels on code instead of code->block. diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index 17b31fe..cad3879 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -225,8 +225,12 @@ optimize_code_node (gfc_code *c) case EXEC_OMP_TASK: case EXEC_OMP_TASKWAIT: case EXEC_OMP_WORKSHARE: + case EXEC_OMP_END_NOWAIT: + case EXEC_OMP_END_SINGLE: case EXEC_DEALLOCATE: - + case EXEC_DT_END: + for (d = c->block; d; d = d->block) + optimize_code (d->next); break; default: |