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

3 lines
116 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
VAR any: REFANY;
any := NEW(REF INTEGER); (* Modula-3 knows that any is now REF INTEGER with a tag added by NEW. *)