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

* fixed test

Browse Source
This commit is contained in:
Jonas Maebe 2005-03-01 21:35:47 +00:00
parent 43c5b3fd29
commit de424adb0d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw3533.pp
View File

@ -22,7 +22,7 @@ begin
writeln(s1,' ',s2,' ',s3);
if (s1<>' 1.000000000000000E+000') or
(s2<>' 1.000000000000000E-001') or
(s3<>'-9.000000000000000E-001') then
(s3<>' 9.000000000000000E-001') then
halt(1);
end;
begin