fpcsrc/tests/webtbs/tw4140.pp


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

{ %recompile }
unit tw4140;

interface

implementation

uses uw4140;

procedure Foo;
var Enum: TMySubEnum;
begin
  { Any of two lines below causes "Internal error 309993" }
  Writeln(Ord(Low(TMySubEnum)));
  Writeln(Ord(Low(Enum)));
end;

end.