/* Test the new PackChar/PackFloat creation methods */
proc main()
{
    var a, b;

    a = new PackChar(4);
    b = new PackFloat(2);

    a[0] = 'h';
    a[1] = 'i';
    a[2] = '!';
    a[3] = '\n';
    say(a);

    b[1] = 1.0;
    say(b[0], ", ", b[1], "\n");
}