contrib/awk/test/fnasgnm.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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}