diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 2 | ||||
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d3f24d0..925b45c 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -20,6 +20,8 @@ (match_io): Reformat error message. (match_inquire_element): Call match_out_tag where appropriate. + * parse.c (gfc_check_do_variable): Fix error locus. + 2004-07-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> PR fortran/15129 diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 68f1ddd..765fd06 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -1926,7 +1926,7 @@ gfc_check_do_variable (gfc_symtree *st) if (s->do_variable == st) { gfc_error_now("Variable '%s' at %C cannot be redefined inside " - "loop beginning at %L", st->name, &s->tail->loc); + "loop beginning at %L", st->name, &s->head->loc); return 1; } |