From 5f18162f7775fe2e479a98c542130f841574d583 Mon Sep 17 00:00:00 2001 From: tobi Date: Fri, 16 Jul 2004 00:57:43 +0000 Subject: fortran/ * parse.c (gfc_check_do_variable): Fix error locus. testsuite/ PR fortran/16404 * gfortran.dg/do_iterator.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84795 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/parse.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/parse.c') diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 68f1ddd673d..765fd06c5bf 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; } -- cgit v1.2.3