M2compiler-V1/tests/r_copy2.LST

Listing:

    1  MODULE RCopy2;
    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 := 4; r1.b.u := 5; r1.b.v := 6;
    7    r2 := r1;
    8    ExitCode := r2.a + r2.b.u + r2.b.v
    9  END RCopy2.

    0 errors