M2compiler-V1/tests/p_newarr.LST

Listing:

    1  MODULE PNewArr;
    2  TYPE P = POINTER TO ARRAY [1 .. 3] OF INTEGER;
    3  VAR p : P; ExitCode : INTEGER;
    4  BEGIN
    5    NEW(p);
    6    p^[1] := 11; p^[2] := 22; p^[3] := 33;
    7    ExitCode := p^[1] + p^[2] + p^[3];
    8    DISPOSE(p)
    9  END PNewArr.

    0 errors