===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/ctags/fortran.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- src/usr.bin/ctags/fortran.c	2012/03/04 04:05:15	1.8
+++ src/usr.bin/ctags/fortran.c	2013/11/26 13:18:55	1.9
@@ -1,4 +1,4 @@
-/*	$OpenBSD: fortran.c,v 1.8 2012/03/04 04:05:15 fgsch Exp $	*/
+/*	$OpenBSD: fortran.c,v 1.9 2013/11/26 13:18:55 deraadt Exp $	*/
 /*	$NetBSD: fortran.c,v 1.3 1995/03/26 20:14:08 glass Exp $	*/
 
 /*
@@ -56,7 +56,7 @@
 		lbp = lbuf;
 		if (*lbp == '%')	/* Ratfor escape to fortran */
 			++lbp;
-		for (; isspace(*lbp); ++lbp)
+		for (; isspace((unsigned char)*lbp); ++lbp)
 			continue;
 		if (!*lbp)
 			continue;
@@ -67,7 +67,7 @@
 			break;
 		case 'd':
 			if (cicmp("double")) {
-				for (; isspace(*lbp); ++lbp)
+				for (; isspace((unsigned char)*lbp); ++lbp)
 					continue;
 				if (!*lbp)
 					continue;
@@ -89,7 +89,7 @@
 				takeprec();
 			break;
 		}
-		for (; isspace(*lbp); ++lbp)
+		for (; isspace((unsigned char)*lbp); ++lbp)
 			continue;
 		if (!*lbp)
 			continue;
@@ -108,7 +108,7 @@
 		default:
 			continue;
 		}
-		for (; isspace(*lbp); ++lbp)
+		for (; isspace((unsigned char)*lbp); ++lbp)
 			continue;
 		if (!*lbp)
 			continue;
@@ -148,15 +148,15 @@
 static void
 takeprec(void)
 {
-	for (; isspace(*lbp); ++lbp)
+	for (; isspace((unsigned char)*lbp); ++lbp)
 		continue;
 	if (*lbp == '*') {
-		for (++lbp; isspace(*lbp); ++lbp)
+		for (++lbp; isspace((unsigned char)*lbp); ++lbp)
 			continue;
-		if (!isdigit(*lbp))
+		if (!isdigit((unsigned char)*lbp))
 			--lbp;			/* force failure */
 		else
-			while (isdigit(*++lbp))
+			while (isdigit((unsigned char)*++lbp))
 				continue;
 	}
 }