p_bad_new.LST 173 B

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