Referenz-Parameter

ParamDemo2.om

MODULE ParamDemo2; IMPORT Write; VAR i: INTEGER; PROCEDURE P(VAR val: INTEGER); BEGIN Write.String("P: val = "); Write.Int(val, 1); Write.Ln; INC(val); Write.String("P: val = "); Write.Int(val, 1); Write.Ln; Write.String("P: i = "); Write.Int(i, 1); Write.Ln; END P; BEGIN i := 1; P(i); Write.String("Main: i = "); Write.Int(i, 1); Write.Ln; END ParamDemo2.

Hier wird beim Aufruf von P kein Wert kopiert, sondern val wird während des Aufrufs zu einem neuen Namen der Variablen i.

dublin$ ParamDemo2 P: val = 1 P: val = 2 P: i = 2 Main: i = 2 dublin$