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

TYPE IntRef = REF INTEGER;

VAR intref := NEW(IntRef);

intref^ := 10