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

*** empty log message ***

Browse Source
This commit is contained in:
florian 2000-02-18 16:08:22 +00:00
parent 6bef8f4732
commit a7a2d53494
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/webtbs/tbug852.pp Normal file
View File

@ -0,0 +1,13 @@
type
TFloat80Array = array [0..1000000] of Extended;
procedure AddFloat80Proc(var Vector1; const Vector2; Count: Integer);
var
I: Integer;
begin
for I:=0 to Count - 1 do
TFloat80Array(Vector1)[I]:=TFloat80Array(Vector1)[I] + TFloat80Array(Vector2)[I];
end;
begin
end.