@c+
module test20_1 --proc arraytest

private

typedef integer range [0..1]sub;
integer array[sub] x, z;

proc trial(val integer array[sub] A; ref integer array[sub] X)
begin
	X := A;
	return;
end;

begin
	x[0] := 1;
	x[1] := 2;
	trial(x, z);
	write z[0], " ", z[1];
end. -- 1 2
