diff options
author | Mikael Morin <mikael.morin@tele2.fr> | 2008-12-15 15:46:22 +0100 |
---|---|---|
committer | Mikael Morin <mikael@gcc.gnu.org> | 2008-12-15 14:46:22 +0000 |
commit | 618f4f46bd9b08eb519da2a8d12ecf57fd76afee (patch) | |
tree | 8811a443c65444ec2cbe37ad951a4e338f1821f5 /gcc/fortran/primary.c | |
parent | d277db6b0f99b39c846cafe4abb3b19f245fb7f4 (diff) | |
download | gcc-618f4f46bd9b08eb519da2a8d12ecf57fd76afee.zip gcc-618f4f46bd9b08eb519da2a8d12ecf57fd76afee.tar.gz gcc-618f4f46bd9b08eb519da2a8d12ecf57fd76afee.tar.bz2 |
re PR fortran/38113 (on warning/error: skip whitespaces, move position marker to actual variable name)
2008-12-15 Mikael Morin <mikael.morin@tele2.fr>
PR fortran/38113
* error.c (show_locus): Start counting columns at 0.
* primary.c (match_actual_arg): Eat spaces
before copying the current locus.
(match_variable): Copy the locus before matching.
From-SVN: r142763
Diffstat (limited to 'gcc/fortran/primary.c')
-rw-r--r-- | gcc/fortran/primary.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 032fa90..c7ca861 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1360,6 +1360,7 @@ match_actual_arg (gfc_expr **result) gfc_expr *e; char c; + gfc_gobble_whitespace (); where = gfc_current_locus; switch (gfc_match_name (name)) @@ -2820,10 +2821,10 @@ match_variable (gfc_expr **result, int equiv_flag, int host_flag) || gfc_current_state () == COMP_CONTAINS) host_flag = 0; + where = gfc_current_locus; m = gfc_match_sym_tree (&st, host_flag); if (m != MATCH_YES) return m; - where = gfc_current_locus; sym = st->n.sym; |