5 type Varray is array (1 .. 1) of Natural; -- SImode
13 function Match (X, Y: Sample; Length : Positive) return Boolean is
15 return X.Values (1 .. Length) = Y.Values (1 .. Length);
18 X, Y : Sample := (Maybe => True, Values => (1 => 1));
21 if not Match (X, Y, 1) then