[Gm2] array parameter handling

[SiTex Graphics]

Hi Gaius,

The code below illustrates a use of array parameters that is very
common in our code.  The latest CVS GM2 reports a parameter mismatch
error.  I don't recall seeing this error before, so maybe it's due to
some recent changes in GM2.

-Scott


MODULE ptarray;

TYPE
  point = ARRAY [0..2] OF REAL;

PROCEDURE CalcPlane(VAR p : ARRAY OF point);
BEGIN
END CalcPlane;

PROCEDURE Calling;
VAR pts : ARRAY [0..3] OF point;
BEGIN
  CalcPlane(pts);
END Calling;

BEGIN
  Calling;
END ptarray.