M2compiler-V1/tests/t_ptr.LST

Listing:

    1  MODULE TPtr;
    2  TYPE P = POINTER TO INTEGER;
    3  VAR p : P; ExitCode : INTEGER;
    4  BEGIN
    5    NEW(p);
    6    p^ := 42;
    7    ExitCode := p^;
    8    DISPOSE(p)
    9  END TPtr.

    0 errors