frontend-passes.c (gfc_expr_walker): Also handle EXPR_SUBSTRING.

2010-09-19  Thomas Koenig  <tkoenig@gcc.gnu.org>

	* frontend-passes.c (gfc_expr_walker):  Also
	handle EXPR_SUBSTRING.

From-SVN: r164404

gcc/fortran/ChangeLog

-2010-09-17  Thomas Koenig  <tkoenig@gcc.gnu.org>
+2010-09-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	* frontend-passes.c (gfc_expr_walker):  Also
+	handle EXPR_SUBSTRING.
+
+2010-09-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	* frontend-passes.c (gfc_expr_walker):  Handle
 	constructors and references.

gcc/fortran/frontend-passes.c

@@ -365,6 +365,7 @@ gfc_expr_walker (gfc_expr **e, walk_expr_fn_t exprfn, void *data)
 	    /* Fall through to the variable case in order to walk the
 	       the reference.  */
 
+	  case EXPR_SUBSTRING:
 	  case EXPR_VARIABLE:
 	    for (r = (*e)->ref; r; r = r->next)
 	      {