diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2018-09-22 10:21:25 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2018-09-22 10:21:25 +0000 |
| commit | 204d463084b323890918c66032fe8b582ea855d6 (patch) | |
| tree | f6f006488947c2f9f56ff68033e5239187131da1 /gcc/fortran/trans-array.c | |
| parent | 0e569a3c7ee5bc9c373f02203bbc252172030b66 (diff) | |
| download | gcc-204d463084b323890918c66032fe8b582ea855d6.zip gcc-204d463084b323890918c66032fe8b582ea855d6.tar.gz gcc-204d463084b323890918c66032fe8b582ea855d6.tar.bz2 | |
re PR fortran/85603 (ICE with character array substring assignment)
2018-09-22 Paul Thomas <pault@gcc.gnu.org>
PR fortran/85603
* trans-array.c (gfc_alloc_allocatable_for_assignment): Test
the charlen backend_decl before using the VAR_P macro.
2018-09-22 Paul Thomas <pault@gcc.gnu.org>
PR fortran/85603
* gfortran.dg/deferred_character_23.f90 : New test.
From-SVN: r264502
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 9e00eb0..0d699ed 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -9950,7 +9950,8 @@ gfc_alloc_allocatable_for_assignment (gfc_loopinfo *loop, { if (expr2->ts.deferred) { - if (VAR_P (expr2->ts.u.cl->backend_decl)) + if (expr2->ts.u.cl->backend_decl + && VAR_P (expr2->ts.u.cl->backend_decl)) tmp = expr2->ts.u.cl->backend_decl; else tmp = rss->info->string_length; |