paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
florian 1999-12-19 12:07:23 +00:00
parent b8d4922188
commit ab313eb964
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/ts/ts010028.pp Normal file
View File

@ -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.