M2compiler-V1/tests/p_empty.LST

Listing:

    1  MODULE PEmpty;
    2  VAR ExitCode : INTEGER;
    3  PROCEDURE Nop;
    4  BEGIN
    5  END Nop;
    6  PROCEDURE Nop2;
    7  END Nop2;
    8  BEGIN
    9    Nop;
   10    Nop2;
   11    ExitCode := 3
   12  END PEmpty.

    0 errors