diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2010-09-18 22:45:13 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2010-09-18 22:45:13 +0000 |
| commit | 1151446c17ede83ed30b2bfc68137e7573ed0d99 (patch) | |
| tree | 9d0ff6aa5e622f0f1ab56c828e3fe4ca38298ae2 /gcc/fortran/frontend-passes.c | |
| parent | 46f19baf762ff4140dcfd18a0f424d0cec0e4615 (diff) | |
| download | gcc-1151446c17ede83ed30b2bfc68137e7573ed0d99.zip gcc-1151446c17ede83ed30b2bfc68137e7573ed0d99.tar.gz gcc-1151446c17ede83ed30b2bfc68137e7573ed0d99.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/frontend-passes.c')
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index bfa7a99..b456f47 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) { |