function fib05()
#
#  test polynomial suggested by Goedecker
#
    n = 5;
    p = fib(n)
    z = [-.6783507129699967-.4585361872731445*im   1;
         -.6783507129699967+.4585361872731445*im   1;
         .19537659464725405-.8488536405462456*im   1;
         .19537659464725405+.8488536405462456*im   1;
         1.9659482366454853                       1];

    p, PolyZeros(z)
end
