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

* new test

Browse Source 
git-svn-id: trunk@7305 -
This commit is contained in:
peter 2007-05-10 16:54:40 +00:00
parent f74b832272
commit 81c88bd27d
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8184,6 +8184,7 @@ tests/webtbs/tw8615.pp svneol=native#text/plain
tests/webtbs/tw8633.pp svneol=native#text/plain tests/webtbs/tw8633.pp svneol=native#text/plain
tests/webtbs/tw8660.pp svneol=native#text/plain tests/webtbs/tw8660.pp svneol=native#text/plain
tests/webtbs/tw8664.pp svneol=native#text/plain tests/webtbs/tw8664.pp svneol=native#text/plain
tests/webtbs/tw8677.pp svneol=native#text/plain
tests/webtbs/tw8685.pp svneol=native#text/plain tests/webtbs/tw8685.pp svneol=native#text/plain
tests/webtbs/tw8757.pp svneol=native#text/plain tests/webtbs/tw8757.pp svneol=native#text/plain
tests/webtbs/tw8777f.pp svneol=native#text/plain tests/webtbs/tw8777f.pp svneol=native#text/plain

23
tests/webtbs/tw8677.pp Normal file
View File

@ -0,0 +1,23 @@
{$mode delphi}
function REGVAR(InputBuffer : Pointer): double;
var
x: integer;
temp, y: double;
begin
x := 1;
y := 1;
temp := exp((x/y));
Result:= Temp;
end;
var
Ptr1: pointer;
begin
Ptr1 := 0;
REGVAR(Ptr1);
writeln('Test Complete.');
end.