Index: ChangeLog
===================================================================
--- ChangeLog   (Revision 164403)
+++ ChangeLog   (Arbeitskopie)
@@ -1,5 +1,10 @@
-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.

Index: frontend-passes.c
===================================================================
--- frontend-passes.c   (Revision 164403)
+++ frontend-passes.c   (Arbeitskopie)
@@ -365,6 +365,7 @@
            /* 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)
              {