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

PROGRAM Deep;
LABEL 10;
CONST N = 10;
  Pi = 3.14159;
TYPE
  IntArr = ARRAY [1..10] OF INTEGER;
  TColor = (red, green, blue);
  PInt = ^INTEGER;
  TPoint = RECORD x, y: INTEGER END;
VAR
  i, j: INTEGER;
  ch: CHAR;
  b: BOOLEAN;
  r: REAL;
  s: STRING;
  a: IntArr;
  pt: TPoint;
  p: PInt;
FUNCTION Sum(a, b: INTEGER): INTEGER;
BEGIN
  Sum := a + b
END;
PROCEDURE Fill(VAR a: IntArr; Value: INTEGER);
VAR k: INTEGER;
BEGIN
  FOR k := 1 TO N DO a[k] := Value
END;
BEGIN
  s := 'hello' + '!';
  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)
    ELSE
      Write(9)
    END;
  UNTIL i > N;
  10: pt.x := Sum(1, 2);
  IF b THEN GOTO 10;
  r := 1.5E-3;
  b := (i = 1) AND (j <> 2) OR NOT b;
  Fill(a, 0);
  Fill(a, 7);
  WriteLn('done')
END.