M2compiler-V1/tests/t_bad_asn.LST

Listing:

    1  MODULE TBadAsn;
    2  VAR x : INTEGER; ExitCode : INTEGER;
    3  BEGIN
    4    x := 3.14;
*****         ^ incompatible assignment
    5    ExitCode := 0
    6  END TBadAsn.

    1 error