M2compiler-V1/tests/r_bad_asn.LST

Listing:

    1  MODULE RBadAsn;
    2  TYPE R = RECORD x : INTEGER END;
    3  VAR r : R; i : INTEGER;
    4  BEGIN
    5    i := 1;
    6    r := i
*****         ^ incompatible assignment
    7  END RBadAsn.

    1 error