* frontend-passes.c (optimize_code_node): Walk block chain by default.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164014 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 700fe91ce19ce2ad9329302a8fee5bc457d5f53f..4faf6399f95bc845dbd1dc090642e96cd5eb22c6 100644 (file)
--- 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 17b31fe57913b13a323fdc386758a49ef25f0a95..cad38795c229ee5cd91e49b592387074f9b963cc 100644 (file)
--- 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: