OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
* array.c (match_subscript): Skip whitespaces before setting locus.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
fortran
/
array.c
diff --git
a/gcc/fortran/array.c
b/gcc/fortran/array.c
index
3e6b9d2
..
a1449fd
100644
(file)
--- 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;