From d480b22c79d1fb0ee6b6fdef9281446ef6391349 Mon Sep 17 00:00:00 2001 From: mikael Date: Fri, 4 Nov 2011 00:12:54 +0000 Subject: * array.c (match_subscript): Skip whitespaces before setting locus. * matchexp.c (match_level_1): Ditto. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@180910 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/array.c | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/array.c') diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 3e6b9d2591c..a1449fd8c9e 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -70,6 +70,7 @@ match_subscript (gfc_array_ref *ar, int init, bool match_star) i = ar->dimen + ar->codimen; + gfc_gobble_whitespace (); ar->c_where[i] = gfc_current_locus; ar->start[i] = ar->end[i] = ar->stride[i] = NULL; -- cgit v1.2.1