M2compiler-V1/tests/t_mint.LST

Listing:

    1  MODULE TMInt;
    2  MODULE M EXPORT MyInt;
    3  TYPE MyInt = INTEGER;
    4  END M;
    5  VAR x : M.MyInt;
    6  VAR ExitCode : INTEGER;
    7  BEGIN
    8    x := 5;
    9    ExitCode := x
   10  END TMInt.

    0 errors