xref: /csrg-svn/old/dbx/tests/pc/assign.p (revision 44143)

program assign (input, output);

var a : array [1..100] of char;
begin
    a := 'blah';
    write(output, a);
end.