RosettaCodeData/Task/Pointers-and-references/Modula-3/pointers-and-references-1.mod3
2023-07-01 13:44:08 -04:00

5 lines
70 B
Text

TYPE IntRef = REF INTEGER;
VAR intref := NEW(IntRef);
intref^ := 10