fpcsrc/tests/tbs/tb0323.pp


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

// checks type cast of nil in const statement
   type
      THandle = longint;
      WSAEVENT = THandle;
   const
      WSA_INVALID_EVENT = WSAEVENT(nil);

   var
     l : longint;

begin
   l:=WSA_INVALID_EVENT*1;
end.