tests/webtbf/tw35671.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %fail }
program Project1;

{$mode delphi}

type
  TSuit = (suHeart, suDiamond, suClub, suSpade);
  TRedSuit = suHeart..suDiamond;

var
  Suit: TRedSuit;
begin
  // This should generate an error, but {$mode delphi} allows it
  Suit := suClub;
end.