proc main()
{
    var a;

    // An iterator should work
    a = PackFloat([1:3]);
    "", a.parent, ' ',a, '\n';

    // A non-iterator should work
    a = PackFloat([1,2,3]);
    "", a.parent, ' ',a, '\n';

    // An unpacked array should work
    a = PackFloat({1,2,3});
    "", a.parent, ' ',a, '\n';

    // A scalar should NOT work
    try { a = PackFloat(3); } catch (e) { "Caught ", e, '\n'; }
}