paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 14:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* mess cleaned up

Browse Source
This commit is contained in:
florian 2022-12-23 18:16:52 +01:00
parent 693491048b
commit 28b4189a9a
2 changed files with 0 additions and 13 deletions

0
tests/webtbs/tw40041b.pp → tests/webtbs/tw40041.pp
View File

13
tw40041a.pp
View File

@ -1,13 +0,0 @@
{$mode objfpc}
function Shift(x: single): single; noinline;
begin
result := x + 10.0 - 1.0;
end;
begin
if Shift(5.0) <> 14.0 then
begin
writeln('Got ', Shift(5.0):0:1, ', expected 14.0.');
halt(1);
end;
end.