===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/awk/parse.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- src/usr.bin/awk/parse.c	1999/12/08 23:09:46	1.4
+++ src/usr.bin/awk/parse.c	2001/09/08 00:12:40	1.5
@@ -1,4 +1,4 @@
-/*	$OpenBSD: parse.c,v 1.4 1999/12/08 23:09:46 millert Exp $	*/
+/*	$OpenBSD: parse.c,v 1.5 2001/09/08 00:12:40 millert Exp $	*/
 /****************************************************************
 Copyright (C) Lucent Technologies 1997
 All Rights Reserved
@@ -240,6 +240,11 @@
 		SYNTAX( "`%s' is an array name and a function name", v->nval );
 		return;
 	}
+	if (isarg(v->nval) != -1) {
+		SYNTAX( "`%s' is both function name and argument name", v->nval );
+		return;
+	}
+
 	v->tval = FCN;
 	v->sval = (char *) st;
 	n = 0;	/* count arguments */