Theia-Modula-2/grammars/Pascal/tests/deep.pas

PROGRAM Deep;
LABEL 10;
CONST N = 10;
TYPE
  IntArr = ARRAY [1..10] OF INTEGER;
  Point = RECORD x, y: INTEGER END;
  Color = (red, green, blue);
VAR
  i, j: INTEGER;
  ch: CHAR;
  b: BOOLEAN;
  r: REAL;
  a: IntArr;
  pt: Point;
  col: Color;
  s: SET OF CHAR;
FUNCTION Sum(a, b: INTEGER): INTEGER;
BEGIN
  Sum := a + b
END;
FUNCTION Odd(n: INTEGER): BOOLEAN;
BEGIN
  Odd := ODD(n)
END;
{ program comment }
BEGIN
  FOR i := 1 TO N DO a[i] := i;
  WHILE i < N DO i := i + 1;
  REPEAT
    CASE i OF
      1: Write(1);
      2, 3: Write(2)
    END;
  UNTIL i > N;
  col := red;
  s := ['a', 'b'];
  b := 'x' IN s;
  10: pt.x := Sum(1, 2);
  IF Odd(i) THEN GOTO 10;
  r := 1.5E-3;
  b := (i = 1) AND (j <> 2) OR NOT b;
  WriteLn('done')
END.