RosettaCodeData/Task/Null-object/Oberon/null-object.oberon

MODULE Null;
IMPORT
  Out;
TYPE
  Object = POINTER TO ObjectDesc;
  ObjectDesc = RECORD
  END;

VAR
  o: Object;  (* default initialization to NIL *)

BEGIN
  IF o = NIL THEN Out.String("o is NIL"); Out.Ln END
END Null.