M2compiler-V1/tests/p_mixed.LST

Listing:

    1  MODULE PMixed;
    2  VAR log : INTEGER; ExitCode : INTEGER;
    3  PROCEDURE Add1(x : INTEGER) : INTEGER;
    4  BEGIN
    5    log := log + 1;
    6    RETURN x + 1
    7  END Add1;
    8  PROCEDURE Bump(x : INTEGER);
    9  BEGIN
   10    log := log + x
   11  END Bump;
   12  BEGIN
   13    log := 0;
   14    Bump(5);
   15    Add1(0);
   16    ExitCode := Add1(Add1(20)) * 2 + log
   17  END PMixed.

    0 errors