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

From-SVN: r164014
This commit is contained in:
Jakub Jelinek 2010-09-08 20:00:13 +02:00 committed by Jakub Jelinek
parent 19ed9d7bb5
commit 7d124e66ca
2 changed files with 7 additions and 1 deletions

View File

@ -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.

View File

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