fpcsrc/tests/webtbs/tw16757.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

{ %opt=-g-t }
program project1;
{$mode objfpc}{$H+}

uses Classes;

type
TBar = class
  function foo(StockID: LongInt; out Image, Mask: Longint): Boolean;
end;

function TBar.foo(StockID: LongInt; out Image, Mask: Longint): Boolean;
begin
  Result := False;
end;

var
  a: array[0..10000] of longint;
  i: longint;
  x:TBar;
begin
  x.foo(0,a[0],a[1]);
  for i:=2 to high(a) do
    if a[i]<>0 then
      halt(1);
end.