* 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 700fe91..4faf639 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 17b31fe..cad3879 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: