blob: 0f3039e4cb930766bcbb8cdc76fbb0635476ea17 (
plain)
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
if s<>one then;
end.
|
