diff options
| -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: |