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

6 lines
70 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
TYPE IntRef = REF INTEGER;
VAR intref := NEW(IntRef);
intref^ := 10