*** empty log message ***

tests/ts/ts010028.pp

@@ -0,0 +1,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.