On Sun, Dec 11, 2011 at 11:11:28AM +0100, Thomas Koenig wrote: > @@ -1330,16 +1345,38 @@ gfc_code_walker (gfc_code **c, walk_code_fn_t code > WALK_SUBEXPR (co->ext.dt->extra_comma); > break; > > - case EXEC_OMP_DO: > + in_omp_workshare = true; > + > + break; > +
What is the above hunk? Looks like unreachable code: break; in_omp_workshare = true; break; Other than that looks good to me. Jakub