diff options
| author | Fritz Reese <fritzoreese@gmail.com> | 2017-11-14 01:25:26 +0000 |
|---|---|---|
| committer | Fritz Reese <foreese@gcc.gnu.org> | 2017-11-14 01:25:26 +0000 |
| commit | 9b24c104aeb9dcaa06c0fe1324b8d9ef1fc2d92a (patch) | |
| tree | 53863fbd54133dd5150bccbeab8db5263c8a0a0c /gcc/fortran/resolve.c | |
| parent | 728649ebf00526e69d14c334affbf4b162c0f154 (diff) | |
| download | gcc-9b24c104aeb9dcaa06c0fe1324b8d9ef1fc2d92a.zip gcc-9b24c104aeb9dcaa06c0fe1324b8d9ef1fc2d92a.tar.gz gcc-9b24c104aeb9dcaa06c0fe1324b8d9ef1fc2d92a.tar.bz2 | |
re PR fortran/78240 (ICE in match_clist_expr, at fortran/decl.c:728)
2017-11-13 Fritz Reese <fritzoreese@gmail.com>
PR fortran/78240
gcc/fortran/ChangeLog:
PR fortran/78240
* decl.c (match_clist_expr): Replace gcc_assert with proper
handling of bad result from spec_size().
* resolve.c (check_data_variable): Avoid NULL dereference when passing
locus to gfc_error.
gcc/testsuite/ChangeLog:
PR fortran/78240
* gfortran.dg/dec_structure_23.f90: New.
* gfortran.dg/pr78240.f90: New.
From-SVN: r254718
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 28a0c9e..bdb4015 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -15286,7 +15286,7 @@ check_data_variable (gfc_data_variable *var, locus *where) if (!gfc_array_size (e, &size)) { gfc_error ("Nonconstant array section at %L in DATA statement", - &e->where); + where); mpz_clear (offset); return false; } |