Additional Testing to Share

Additional Testing for Code Generator (to share)

__

array_out_of_bounds1.simple

PROGRAM X;
  VAR ff : ARRAY 5 OF INTEGER;
  VAR i: INTEGER;
BEGIN
  i := -1;
  ff[i] := 39;
  WRITE ff[0]
END X.

array_out_of_bounds2.simple

PROGRAM X;
  VAR ff : ARRAY 5 OF INTEGER;
  VAR i: INTEGER;
BEGIN
  i := 5;
  ff[i] := 39;
  WRITE ff[0]
END X.

div_zero.simple

PROGRAM X;
  VAR x: INTEGER;
  VAR i: INTEGER;
BEGIN
  i := 0;
  READ x;
  x := x - x + 85;
  x := x DIV i;
  WRITE x
END X.

if2.simple

PROGRAM X;
BEGIN
  IF 9 > 5 THEN
    WRITE 42
  END
END X.

if3.simple

PROGRAM X;
BEGIN
  IF 5 # 9 THEN
    WRITE 42
  END
END X.

if4.simple

PROGRAM X;
BEGIN
  IF 5 = 5 THEN
    WRITE 42
  END
END X.

if5.simple

PROGRAM X;
BEGIN
  IF 5 <= 9 THEN
    WRITE 42
  END
END X.

if6.simple

PROGRAM X;
BEGIN
  IF 9 >= 5 THEN
    WRITE 42
  END
END X.

mod_zero.simple

PROGRAM X;
  VAR x: INTEGER;
  VAR i: INTEGER;
BEGIN
  i := 0;
  READ x;
  x := x - x + 85;
  x := x MOD i;
  WRITE x
END X.

repeat.simple

PROGRAM X;
  VAR a : INTEGER;
BEGIN
  a := 1;
  REPEAT a := a + 1 UNTIL a = 42 END;
  WRITE a
END X.