From be58af47f2e33815a7632ccca34a2d72127be35e Mon Sep 17 00:00:00 2001 From: Bernhard Fischer Date: Sun, 7 Jan 2007 17:23:45 +0100 Subject: re PR fortran/27698 (subroutine _foo draws "unclassifiable statement" instead of a useful error.) fortran/ChangeLog 2007-01-03 Bernhard Fischer PR fortran/27698 * match.c (gfc_match_name): Print diagnostics for invalid character in names. testsuite/ChangeLog 2007-01-03 Bernhard Fischer PR fortran/27698 * gfortran.dg/invalid_name.f90: New test. * gfortran.dg/do_iterator.f90: Adjust pattern for expected error. * gfortran.dg/gomp/pr29759.f90: Ditto. From-SVN: r120549 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/match.c | 2 ++ 2 files changed, 8 insertions(+) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 116d4ac..5615d1f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-01-07 Bernhard Fischer + + PR fortran/27698 + * match.c (gfc_match_name): Print diagnostics for invalid + character in names. + 2007-01-06 Steven G. Kargl * array.c: Fix whitespace in comment table. diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 0dc2c72..376f0a5 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -396,6 +396,8 @@ gfc_match_name (char *buffer) c = gfc_next_char (); if (!ISALPHA (c)) { + if (gfc_error_flag_test() == 0) + gfc_error ("Invalid character in name at %C"); gfc_current_locus = old_loc; return MATCH_NO; } -- cgit v1.1