5 type Varray is array (1 .. 1) of Natural; -- SImode
17 function Match (X, Y: Sample; Length : Positive) return Boolean is
19 return X.R.Values (1 .. Length) = Y.R.Values (1 .. Length);
22 X, Y : Sample := (Maybe => True, R => (Values => (1 => 1)));
25 if not Match (X, Y, 1) then