RosettaCodeData/Task/Pointers-and-references/Modula-3/pointers-and-references-2.mod3

VAR any: REFANY;
any := NEW(REF INTEGER); (* Modula-3 knows that any is now REF INTEGER with a tag added by NEW. *)