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/matchexp.c | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/matchexp.c') diff --git a/gcc/fortran/matchexp.c b/gcc/fortran/matchexp.c index 8b99ce98692..cd70dc0f758 100644 --- a/gcc/fortran/matchexp.c +++ b/gcc/fortran/matchexp.c @@ -201,6 +201,7 @@ match_level_1 (gfc_expr **result) locus where; match m; + gfc_gobble_whitespace (); where = gfc_current_locus; uop = NULL; m = match_defined_operator (&uop); -- cgit v1.2.1