CocoR/Test1/tests/t_bad_setelem.LST

Listing:

    1  MODULE TSet;
    2  VAR s : SET OF [0 .. 31];
    3  BEGIN s := {1, 'a'}
*****                 ^ set operand mismatch
    4  END TSet.

    1 error