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

+ test for #22809 which is meanwhile resolved

Browse Source
This commit is contained in:
florian 2022-10-12 21:56:30 +02:00
parent 989895c82f
commit f0c0d8a033
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/webtbs/tw22809.pp Normal file
View File

@ -0,0 +1,20 @@
program Project1;
{$mode delphi}
uses
SysUtils;
var
v : Double;
begin
try
TryStrToFloat('9e9999', v);
except
on e: Exception do begin
writeln('Unexpected exception thrown: ',e.ClassName);
halt(1);
end;
end;
writeln('ok')
end.