M2compiler-V3/compiler/tests/t_nestdeep.mod

MODULE TNestDeep;
// Three levels + siblings sharing parent locals. Exit 211.
VAR ExitCode : INTEGER;
PROCEDURE A(v : INTEGER);
VAR s : INTEGER;
  PROCEDURE B;
  VAR t : INTEGER;
    PROCEDURE C;
    BEGIN
      s := s + v + t
    END C;
  BEGIN
    t := 100;
    C;
    C
  END B;
  PROCEDURE D;
  BEGIN
    s := s + 1
  END D;
BEGIN
  s := 0;
  B;
  D;
  ExitCode := s
END A;
BEGIN
  A(5)
END TNestDeep.