From: jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 8 Sep 2010 18:00:13 +0000 (+0000)
Subject: 	* frontend-passes.c (optimize_code_node): Walk block chain by default.
X-Git-Tag: upstream/4.9.2~26790
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c228e4687fe778e3c11822da7a689a898884dafd;p=platform%2Fupstream%2Flinaro-gcc.git

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