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

3 lines
116 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
VAR any: REFANY;
any := NEW(REF INTEGER); (* Modula-3 knows that any is now REF INTEGER with a tag added by NEW. *)