M2compiler-V3/compiler/tests/t_nestedproc.mod

MODULE TNestedProc;
VAR ExitCode : INTEGER;
PROCEDURE Outer;
  PROCEDURE Inner;
  BEGIN
  END Inner;
BEGIN
END Outer;
BEGIN
  ExitCode := 0
END TNestedProc.