4.4BSD/usr/src/old/dbx/tests/mod/assign.mod

module main;
from io import Writef, output;
var a : array[1..100] of char;
begin
    a := "blah";
    Writef(output, "%s", a);
end main.