Celestin Apprentice 2/Apprentice-Release2.iso/Tools/Languages/MacMETH 3.2.1/Examples/Buggy.MOD

Text File | 1992-10-09 | 279 b | 19 lines | [TEXT/MEDT]

MODULE Buggy; (* W. Heiz, 4-Apr-86 *)

  (* contains 1 syntax and 1 run-time error *)

  VAR x : CARDINAL;
      a : ARRAY [0..10] OF BOOLEAN;

  PROCEDURE P(i : CARDINL; p : BOOLEAN);

  BEGIN
    a[i] := p;
  END P;

BEGIN
  x := 14;
  P(0,TRUE);
  P(x,FALSE);
END Buggy.