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

6 lines
70 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
TYPE IntRef = REF INTEGER;
VAR intref := NEW(IntRef);
intref^ := 10