tests/webtbf/tw2972.pp


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

{ %fail }

{ Source provided for Free Pascal Bug Report 2972 }
{ Submitted by "Michalis Kamburelis" on  2004-02-13 }
{ e-mail: michalis@camelot.homedns.org }
type
  TEnum = (one, two);

var s:String;
begin
 s:=one;
end.