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

PROGRAM DeepTP;
LABEL 10;
CONST N = 10;
TYPE
  IntArr = ARRAY [1..10] OF INTEGER;
  Str = STRING;
VAR
  i, j: INTEGER;
  ch: CHAR;
  b: BOOLEAN;
  r: REAL;
  a: IntArr;
  s: STRING;
FUNCTION Sum(a, b: INTEGER): INTEGER;
BEGIN
  Sum := a + b
END;
BEGIN
  i := $FF;
  s := 'hello' + '!';
  FOR i := 1 TO N DO a[i] := i;
  WHILE i < N DO i := i + 1;
  REPEAT
    CASE ch OF
      'a': Write(1)
    ELSE
      Write(2)
    END;
  UNTIL i > N;
  10: j := Sum(1, 2);
  IF j > 0 THEN GOTO 10;
  r := 1.5E-3;
  WriteLn('done')
END.