diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-01-10 23:26:15 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-01-10 23:26:15 +0000 |
| commit | bdd82c9b9975a8bca850b99cd5cee75e6ed3c127 (patch) | |
| tree | f4a5914f6c206ced8e44b8db873a905434bccc68 /gcc/fortran/resolve.c | |
| parent | 68dc87c3600fe0b6b629b45e5efc058c32b7bccc (diff) | |
| download | gcc-bdd82c9b9975a8bca850b99cd5cee75e6ed3c127.zip gcc-bdd82c9b9975a8bca850b99cd5cee75e6ed3c127.tar.gz gcc-bdd82c9b9975a8bca850b99cd5cee75e6ed3c127.tar.bz2 | |
re PR fortran/82367 (ICE with deferred length string allocate on non-deferred length argument)
2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/82367
* resolve.c (resolve_allocate_expr): Check for NULL pointer.
2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/82367
* gfortran.dg/deferred_character_18.f90: New test.
From-SVN: r256464
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 1950483..e9f91d8 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -7484,8 +7484,13 @@ resolve_allocate_expr (gfc_expr *e, gfc_code *code, bool *array_alloc_wo_spec) if (code->ext.alloc.ts.type == BT_CHARACTER && !e->ts.deferred && !UNLIMITED_POLY (e)) { - int cmp = gfc_dep_compare_expr (e->ts.u.cl->length, - code->ext.alloc.ts.u.cl->length); + int cmp; + + if (!e->ts.u.cl->length) + goto failure; + + cmp = gfc_dep_compare_expr (e->ts.u.cl->length, + code->ext.alloc.ts.u.cl->length); if (cmp == 1 || cmp == -1 || cmp == -3) { gfc_error ("Allocating %s at %L with type-spec requires the same " |