00100 BEGIN "OWNTST" 00200 PROCEDURE FOO(INTEGER I2); 00300 BEGIN 00350 OWN REAL ARRAY TST[0:I2]; 00400 END; 00500 END