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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164404 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 268bccb..677902f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,4 +1,9 @@
-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.

diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c
index bfa7a99..b456f47 100644 (file)
--- a/gcc/fortran/frontend-passes.c
+++ b/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)
              {