{ %norun }
{$x-}


PROCEDURE Test;
TYPE T = ARRAY OF Char;
VAR V : T;
BEGIN V := V;
END;

begin
end.