diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-07-28 23:12:23 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-07-28 23:12:23 +0000 |
| commit | 89f1f37ea61d1eff9f01e9a580f44f1964500bc1 (patch) | |
| tree | 8eac3a67d1d4a1346b76d8f17f86203ad7eee3e1 /gcc/fortran/decl.c | |
| parent | 204ada0caa0a1ad2f0a534697bec67f9c26f292d (diff) | |
| download | gcc-89f1f37ea61d1eff9f01e9a580f44f1964500bc1.zip gcc-89f1f37ea61d1eff9f01e9a580f44f1964500bc1.tar.gz gcc-89f1f37ea61d1eff9f01e9a580f44f1964500bc1.tar.bz2 | |
re PR fortran/71067 (ICE on data initialization with insufficient value)
2016-07-28 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/71067
* decl.c (match_data_constant): On error, set 'result' to NULL.
2016-07-28 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/71067
* gfortran.dg/pr71067_1.f90: New test.
* gfortran.dg/pr71067_2.f90: Ditto.
From-SVN: r238842
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 1b62833..cf75039 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -395,6 +395,7 @@ match_data_constant (gfc_expr **result) { gfc_error ("Symbol %qs must be a PARAMETER in DATA statement at %C", name); + *result = NULL; return MATCH_ERROR; } else if (dt_sym && gfc_fl_struct (dt_sym->attr.flavor)) |