tw2670.pp 370 B

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