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

+ tests for mantis #23196 and #25122, already fixed by r25888

Browse Source 
git-svn-id: trunk@25889 -
This commit is contained in:
Jonas Maebe 2013-10-31 13:10:48 +00:00
parent 21eeec9981
commit 4becf1f3c1
3 changed files with 46 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -13556,6 +13556,7 @@ tests/webtbs/tw2317.pp svneol=native#text/plain
tests/webtbs/tw2318.pp svneol=native#text/plain
tests/webtbs/tw23185.pp svneol=native#text/pascal
tests/webtbs/tw2318b.pp svneol=native#text/plain
tests/webtbs/tw23196.pp svneol=native#text/plain
tests/webtbs/tw23204.pp svneol=native#text/plain
tests/webtbs/tw23212.pp svneol=native#text/plain
tests/webtbs/tw2323.pp svneol=native#text/plain
@ -13627,6 +13628,7 @@ tests/webtbs/tw25059.pp svneol=native#text/pascal
tests/webtbs/tw25077.pp svneol=native#text/pascal
tests/webtbs/tw25081.pp svneol=native#text/pascal
tests/webtbs/tw25101.pp svneol=native#text/pascal
tests/webtbs/tw25122.pp svneol=native#text/plain
tests/webtbs/tw25132.pp svneol=native#text/pascal
tests/webtbs/tw2514.pp svneol=native#text/plain
tests/webtbs/tw25198.pp svneol=native#text/plain

18
tests/webtbs/tw23196.pp Normal file
View File

@ -0,0 +1,18 @@
uses
sysutils;
var b: extended;
s: string;
begin
{$ifdef FPC_SUPPORTS_EXTENDED}
b := 999999999999999999;
writeln(b:25:25);
str(b:25:25,s);
if s<>'999999999999999999.0000000000000000000000000' then
halt(1);
writeln(FloatToStrF(b, ffFixed, 25, 0));
if FloatToStrF(b, ffFixed, 25, 0)<>'999999999999999999' then
halt(2);
{$endif}
end.

26
tests/webtbs/tw25122.pp Normal file
View File

@ -0,0 +1,26 @@
var
e: record
case byte of
1: (e: extended);
2: (a: array[0..9] of byte);
end;
i: longint;
{ assume little endian }
const
a1: array[0..9] of byte = ($f8,$da,$4f,$8d,$97,$6e,$12,$83,$f5,$43);
a2: array[0..9] of byte = ($05,$dd,$4f,$8d,$97,$6e,$12,$83,$f5,$43);
begin
{$ifdef FPC_HAS_TYPE_EXTENDED}
writeln('testing');
e.e := 1.7976931348623157e+305;
for i:=low(a1) to high(a1) do
if e.a[i]<>a1[i] then
halt(1);
e.e := 1.7976931348623158e+305;
for i:=low(a1) to high(a1) do
if e.a[i]<>a2[i] then
halt(2);
{$endif}
end.