diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-07-16 02:57:43 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-07-16 02:57:43 +0200 |
| commit | b38b6477f8229197137a63d2e9abd20fb0bb83d5 (patch) | |
| tree | 8c55d335bebc0523bb9a5df83c00721571dacd30 /gcc/fortran/parse.c | |
| parent | c9583ed23d6fc2706bfaf403c4c3ba41f92b9b50 (diff) | |
| download | gcc-b38b6477f8229197137a63d2e9abd20fb0bb83d5.zip gcc-b38b6477f8229197137a63d2e9abd20fb0bb83d5.tar.gz gcc-b38b6477f8229197137a63d2e9abd20fb0bb83d5.tar.bz2 | |
re PR fortran/16404 (should reject invalid code with -pedantic -std=f95 ? (x8))
fortran/
* parse.c (gfc_check_do_variable): Fix error locus.
testsuite/
PR fortran/16404
* gfortran.dg/do_iterator.f90: New test.
From-SVN: r84795
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; } |