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

PROGRAM Deep;
LABEL 10;
CONST N = 10;
TYPE
  Color = (red, green, blue);
  IntArr = ARRAY [1..10] OF INTEGER;
VAR
  i: INTEGER;
  col: Color;
  a: IntArr;
PROCEDURE Show(c: Color);
BEGIN
  WriteLn('c')
END;
BEGIN
  col := red;
  CASE col OF
    red: Write(1);
    green, blue: Write(2)
  END;
  Show(col);
  FOR i := 1 TO N DO a[i] := i;
  10: i := 0;
  IF i = 0 THEN GOTO 10;
  WriteLn('done')
END.