match.c (gfc_match): Add assertion to catch wrong calls trying to match upper-case...

2008-07-24  Daniel Kraft  <d@domob.eu>

	* match.c (gfc_match):  Add assertion to catch wrong calls trying to
	match upper-case characters.

From-SVN: r138120

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1f0ba0d..5d930f5 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-24  Daniel Kraft  <d@domob.eu>
+
+       * match.c (gfc_match):  Add assertion to catch wrong calls trying to
+       match upper-case characters.
+
 2008-07-24  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR fortran/29952

diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index 19a97e9..42fe794 100644 (file)
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -1187,6 +1187,11 @@ loop:
        }
 
     default:
+
+      /* gfc_next_ascii_char converts characters to lower-case, so we shouldn't
+        expect an upper case character here!  */
+      gcc_assert (TOLOWER (c) == c);
+
       if (c == gfc_next_ascii_char ())
        goto loop;
       break;