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

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

gcc/fortran/ChangeLog

+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

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;