[ Course Documents ] : [ Subprograms ]

Previous Contents Next Keyword Index

Pass-By-Name Example 1

    procedure sub1(x: int; y: int);
    begin
        x := 1;
        y := 2;
        x := 2;
        y := 3;
    end;

    sub1(i, a[i]);