source: trunk/essentials/sys-apps/gawk/test/aryprm4.awk

function f(x){
        x = 1
}
BEGIN {
        f(a)
        a[1]
}