M2compiler-V1/tests/t_ptr0.mod

MODULE TPtr0;
TYPE P = POINTER TO INTEGER;
VAR p, q : P; ExitCode : INTEGER;
BEGIN
  p := NIL;
  q := p;
  IF q = NIL THEN ExitCode := 5 ELSE ExitCode := 0 END
END TPtr0.