INTERFACE foo;

TYPE 
  TwoVec   = ARRAY [0..1] OF LONGREAL;

PROCEDURE proc1 (p : ARRAY [0..2] OF TwoVec); 
PROCEDURE proc2 (p : ARRAY OF TwoVec); 

END foo.