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 /gcc/fortran/frontend-passes.c | |
| 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
Diffstat (limited to 'gcc/fortran/frontend-passes.c')
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 6 |
1 files changed, 5 insertions, 1 deletions
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: |