===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/ctags/fortran.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- src/usr.bin/ctags/fortran.c	1996/06/26 05:32:29	1.2
+++ src/usr.bin/ctags/fortran.c	2000/07/25 19:28:30	1.3
@@ -1,4 +1,4 @@
-/*	$OpenBSD: fortran.c,v 1.2 1996/06/26 05:32:29 deraadt Exp $	*/
+/*	$OpenBSD: fortran.c,v 1.3 2000/07/25 19:28:30 deraadt Exp $	*/
 /*	$NetBSD: fortran.c,v 1.3 1995/03/26 20:14:08 glass Exp $	*/
 
 /*
@@ -38,7 +38,7 @@
 #if 0
 static char sccsid[] = "@(#)fortran.c	8.3 (Berkeley) 4/2/94";
 #else
-static char rcsid[] = "$OpenBSD: fortran.c,v 1.2 1996/06/26 05:32:29 deraadt Exp $";
+static char rcsid[] = "$OpenBSD: fortran.c,v 1.3 2000/07/25 19:28:30 deraadt Exp $";
 #endif
 #endif /* not lint */
 
@@ -126,10 +126,10 @@
 			continue;
 		for (cp = lbp + 1; *cp && intoken(*cp); ++cp)
 			continue;
-		if (cp = lbp + 1)
+		if ((cp = lbp + 1))
 			continue;
 		*cp = EOS;
-		(void)strcpy(tok, lbp);
+		(void)strlcpy(tok, lbp, sizeof tok);	/* possible trunc */
 		getline();			/* process line for ex(1) */
 		pfnote(tok, lineno);
 		pfcnt = YES;