From: Daniel Kraft <d@domob.eu>
Date: Thu, 24 Jul 2008 16:06:55 +0000 (+0200)
Subject: match.c (gfc_match): Add assertion to catch wrong calls trying to match upper-case... 
X-Git-Tag: releases/gcc-4.4.0~3720
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=befdf74172fe5f6d61f708e152f2e54540b75f21;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1f0ba0d34877..5d930f5524c4 100644
--- 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 19a97e930e94..42fe7943aea9 100644
--- 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;