Listing:

    1  MODULE PBadNew;
    2  VAR x : INTEGER;
    3  BEGIN
    4    x := 1;
    5    NEW(x)
*****         ^ not a POINTER type
    6  END PBadNew.

    1 error