freebsd-dev/contrib/awk/test/fnasgnm.awk
2001-11-02 21:06:08 +00:00

15 lines
503 B
Awk

# AFP_Bug1.awk - illustrate a problem with `gawk' (GNU Awk 3.0.3 on OS/2)
# Arthur Pool .. pool@commerce.uq.edu.au
# $Id: AFP_Bug1.awk,v 1.1 1998-03-17 12:22:44+10 pool Exp pool $
# Assignment to a variable with the same name as a function from within
# that function causes an ABEND.
#
# Yes, I do realise that it's not a smart thing to do, but an error
# message would be a kinder response than a core dump (and would make
# debugging a whole lot easier).
{ShowMe()}
function ShowMe() {ShowMe = 1}