From c228e4687fe778e3c11822da7a689a898884dafd Mon Sep 17 00:00:00 2001 From: jakub Date: Wed, 8 Sep 2010 18:00:13 +0000 Subject: [PATCH] * 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 --- gcc/fortran/ChangeLog | 2 ++ gcc/fortran/frontend-passes.c | 6 +++++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + * 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: -- 2.7.4