M2compiler-V1/tests/t_ptr0.LST

Listing:

    1  MODULE TPtr0;
    2  TYPE P = POINTER TO INTEGER;
    3  VAR p, q : P; ExitCode : INTEGER;
    4  BEGIN
    5    p := NIL;
    6    q := p;
    7    IF q = NIL THEN ExitCode := 5 ELSE ExitCode := 0 END
    8  END TPtr0.

    0 errors