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

From-SVN: r164014

* frontend-passes.c (optimize_code_node): Walk block chain by default.
From-SVN: r164014
7d124e66 · Jakub Jelinek · Jakub Jelinek · 19ed9d7b · 7d124e66 · 7d124e66
Commit 7d124e66 authored Sep 08, 2010 by Jakub Jelinek Committed by Jakub Jelinek Sep 08, 2010
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletions

gcc/fortran/ChangeLog
+2 -0

gcc/fortran/frontend-passes.c
+5 -1

No files found.
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
 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.

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