diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-09-10 17:13:11 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-09-10 17:13:11 +0000 |
| commit | 3108836938c10cc746fe2118e8108e843039a2c7 (patch) | |
| tree | 064ae4e1f8c96cc25b46512a36ac2f38311f483c /gcc/fortran/expr.c | |
| parent | 08f8b6653ad6351e58dd466ca8be575e2855b88a (diff) | |
| download | gcc-3108836938c10cc746fe2118e8108e843039a2c7.zip gcc-3108836938c10cc746fe2118e8108e843039a2c7.tar.gz gcc-3108836938c10cc746fe2118e8108e843039a2c7.tar.bz2 | |
re PR fortran/67526 (ICE on missing end parenthesis in substring construct)
2015-09-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/67526
* gfortran.dg/pr67526.f90: New test.
2015-09-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/67526
* expr.c (gfc_check_init_expr): Do not dereference a NULL pointer.
From-SVN: r227651
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 1d6f310..3a0ef4d 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -2600,14 +2600,18 @@ gfc_check_init_expr (gfc_expr *e) break; case EXPR_SUBSTRING: - t = gfc_check_init_expr (e->ref->u.ss.start); - if (!t) - break; - - t = gfc_check_init_expr (e->ref->u.ss.end); - if (t) - t = gfc_simplify_expr (e, 0); + if (e->ref) + { + t = gfc_check_init_expr (e->ref->u.ss.start); + if (!t) + break; + t = gfc_check_init_expr (e->ref->u.ss.end); + if (t) + t = gfc_simplify_expr (e, 0); + } + else + t = false; break; case EXPR_STRUCTURE: |