contrib/awk/test/nasty2.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

# Based on nasty.awk, test same thing for printf
#
BEGIN {
a="aaaaa"
a=a a #10
a=a a #20
a=a a #40
a=a a #80
a=a a #160
a=a a # i.e. a is long enough

printf("a = %s, f() = %s\n", a, f())
print a
}

function f()
{
gsub(/a/, "123", a)
return "X"
}