t_bad_deref.mod 100 B

123456
  1. MODULE TBadDeref;
  2. VAR p : POINTER TO INTEGER; x : INTEGER;
  3. BEGIN
  4. x := 1;
  5. x := p^
  6. END TBadDeref.