OSDN Git Service

2011-01-13 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / fortran / frontend-passes.c
index 0777dba..7c55767 100644 (file)
@@ -659,7 +659,7 @@ gfc_code_walker (gfc_code **c, walk_code_fn_t codefn, walk_expr_fn_t exprfn,
              for (b = (*c)->block; b; b = b->block)
                {
                  gfc_case *cp;
-                 for (cp = b->ext.case_list; cp; cp = cp->next)
+                 for (cp = b->ext.block.case_list; cp; cp = cp->next)
                    {
                      WALK_SUBEXPR (cp->low);
                      WALK_SUBEXPR (cp->high);