RosettaCodeData/Task/Undefined-values/Phix/undefined-values.phix

object x

procedure test()
    if object(x) then
        puts(1,"x is an object\n")
    else
        puts(1,"x is unassigned\n")
    end if
end procedure

test()
x = 1
test()