xref: /freebsd/contrib/one-true-awk/testdir/t.fun2 (revision 23f24377b1a9ab6677f00f2302484d6658d94cab)
1*23f24377SWarner Loshfunction f(n) {
2*23f24377SWarner Losh	while (n < 10) {
3*23f24377SWarner Losh		print n
4*23f24377SWarner Losh		n = n + 1
5*23f24377SWarner Losh	}
6*23f24377SWarner Losh}
7*23f24377SWarner Loshfunction g(n) {
8*23f24377SWarner Losh	print "g", n
9*23f24377SWarner Losh}
10*23f24377SWarner Losh{ f($1); g($1); print n }
11