M2compiler-V1/tests/c_fcopy.LST

Listing:

    1  MODULE CFcopy;
    2  TYPE Inner = RECORD u, v : INTEGER END;
    3  TYPE Outer = RECORD a : INTEGER; b : Inner END;
    4  VAR r1, r2 : Outer; ExitCode : INTEGER;
    5  BEGIN
    6    r1.a := 1; r1.b.u := 2; r1.b.v := 3;
    7    r2.b := r1.b;
    8    ExitCode := r2.b.u + r2.b.v
    9  END CFcopy.

    0 errors