M2compiler-V1/tests/d_from.LST

Listing:

    1  MODULE DFrom;
    2  FROM DLib2 IMPORT Vec, Sum;
    3  VAR a : Vec;
    4  VAR ExitCode : INTEGER;
    5  BEGIN
    6    a[1] := 1; a[2] := 2; a[3] := 3;
    7    ExitCode := Sum(a)
    8  END DFrom.

    0 errors