t_bad_caselabel.mod 98 B

1234
  1. MODULE TCase;
  2. VAR b : BOOLEAN; x : INTEGER;
  3. BEGIN CASE b OF 1 : x := 1 ELSE x := 2 END
  4. END TCase.