aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gcc/fortran/ChangeLog2
-rw-r--r--gcc/fortran/frontend-passes.c6
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: