paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 17:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test

Browse Source
This commit is contained in:
florian 2022-01-11 22:10:21 +01:00
parent fc3b635013
commit 11b069fa61
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/webtbs/tw15633.pp Normal file
View File

@ -0,0 +1,9 @@
var value : word;
code : Longint;
begin
Val('4294901772', Value, code);
writeln(code);
if code<>10 then
halt(1);
end.