TOS Silver 2000/TOS Silver 2000.iso/programm/MM2_DEV/S/COMP/TEST/SPILLING.M

Text File | 1990-11-10 | 309 b | 19 lines

MODULE T;

(*
 * Testet Spilling-Verhalten
 *)

PROCEDURE p (d: ARRAY OF CARDINAL; c: CARDINAL);
  VAR w: RECORD a,b: CARDINAL END;
  VAR w2: RECORD a2,b2: CARDINAL END;
  BEGIN
    WITH w DO
      WITH w2 DO
        p (d, a) (* dies mag er z.Zt. nicht *)
      END
    END
  END p;

END T.