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'; } }