M2compiler-V1/tests/t_mptr.LST

Listing:

    1  MODULE TMPtr;
    2  MODULE M EXPORT PNode;
    3  TYPE Node = RECORD val : INTEGER; next : POINTER TO Node END;
    4  TYPE PNode = POINTER TO Node;
    5  END M;
    6  VAR p : M.PNode; ExitCode : INTEGER;
    7  BEGIN
    8    NEW(p);
    9    p^.val := 7;
   10    ExitCode := p^.val
   11  END TMPtr.

    0 errors