2010-12-15 Greg Watson <g.watson@computer.org>

* f-exp.y (yylex): Check entire token against keywords.

gdb/ChangeLog

@@ -1,3 +1,7 @@
+2010-12-15  Greg Watson  <g.watson@computer.org>
+
+	* f-exp.y (yylex): Check entire token against keywords.
+
 2010-12-15  Doug Evans  <dje@google.com>
 
 	Rename "maint set python auto-load" to "set auto-load-scripts".

gdb/f-exp.y

@@ -1150,8 +1150,8 @@ yylex ()
   /* Catch specific keywords.  */
   
   for (i = 0; f77_keywords[i].operator != NULL; i++)
-    if (strncmp (tokstart, f77_keywords[i].operator,
-		 strlen(f77_keywords[i].operator)) == 0)
+    if (strlen (f77_keywords[i].operator) == namelen
+	&& strncmp (tokstart, f77_keywords[i].operator, namelen) == 0)
       {
 	/* 	lexptr += strlen(f77_keywords[i].operator); */ 
 	yylval.opcode = f77_keywords[i].opcode;