array.mod

<B>Digital的Unix操作系统VAX 4.2源码</B>

(*#@(#)array.mod	4.1	Ultrix	7/17/90 *)
module testarray;
from system import MAXINT;
type
    CString = array @nocount of char;
    Rec = record
	sr : CString;
	tr : array of char;
    end;
    Ptr = pointer to record
	a : array [0..MAXINT+20] of integer;
    end;
var
    s : CString;
    t : array of char;
    p : Ptr;

procedure P(a : CString; b : array of char);
begin
end P;

end testarray.