diff options
author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2016-11-01 21:16:46 +0000 |
---|---|---|
committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2016-11-01 21:16:46 +0000 |
commit | 5b7c051940e69046151e3094b56f1b13e873840e (patch) | |
tree | 810447b61278b608fefeaa15614d788c9d6d13cf /gcc/fortran/match.c | |
parent | 70d288130f1296bebb1dcf30d8585916b7c8c850 (diff) | |
download | gcc-5b7c051940e69046151e3094b56f1b13e873840e.zip gcc-5b7c051940e69046151e3094b56f1b13e873840e.tar.gz gcc-5b7c051940e69046151e3094b56f1b13e873840e.tar.bz2 |
re PR fortran/78178 (ICE in WHERE statement with diagnostic)
2016-11-01 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/78178
* match.c (match_simple_where): Fill in locus for assigment
in simple WHERE statement.
2016-11-01 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/69544
* gfortran.dg/where_6.f90: New test.
From-SVN: r241756
Diffstat (limited to 'gcc/fortran/match.c')
-rw-r--r-- | gcc/fortran/match.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 5ec6e89..40566f6 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -6219,6 +6219,7 @@ match_simple_where (void) c->next = XCNEW (gfc_code); *c->next = new_st; + c->next->loc = gfc_current_locus; gfc_clear_new_st (); new_st.op = EXEC_WHERE; |