M2compiler-V1/tests/b_bad_nest.mod

MODULE BBadNest;
VAR ExitCode : INTEGER;
PROCEDURE P;
MODULE M EXPORT cnt;
VAR cnt : INTEGER;
BEGIN
  cnt := 1
END M;
BEGIN
  ExitCode := 0
END P;
BEGIN
  ExitCode := 0
END BBadNest.