blob: 3f26ab3c39c39c0e7031e9d5a2fbcae976f806ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %version=1.1 }
{ %fail }
{ Source provided for Free Pascal Bug Report 2670 }
{ Submitted by "marco" on 2003-09-07 }
{ e-mail: marco@freepascal.org }
program bugje;
{$mode delphi}
Uses Classes;
type theenum = (hello,hi, hoi);
testme= class(TComponent)
field : theenum;
end;
begin
end.
|