tests/webtbs/tw8677.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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.