From 1151446c17ede83ed30b2bfc68137e7573ed0d99 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sat, 18 Sep 2010 22:45:13 +0000 Subject: [PATCH] frontend-passes.c (gfc_expr_walker): Also handle EXPR_SUBSTRING. 2010-09-19 Thomas Koenig * frontend-passes.c (gfc_expr_walker): Also handle EXPR_SUBSTRING. From-SVN: r164404 --- gcc/fortran/ChangeLog | 7 ++++++- gcc/fortran/frontend-passes.c | 1 + 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 268bccb1072..677902f3ae7 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,4 +1,9 @@ -2010-09-17 Thomas Koenig +2010-09-19 Thomas Koenig + + * frontend-passes.c (gfc_expr_walker): Also + handle EXPR_SUBSTRING. + +2010-09-19 Thomas Koenig * 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 bfa7a99938f..b456f47fb14 100644 --- 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) {