fpcsrc/tests/webtbs/tw7071.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
27
28
29

{$mode objfpc}{$H+}

uses
  Classes, SysUtils;

var
  err : boolean;

procedure Proc(var Buf);
begin
  writeln('Proc(var Buf)');
end;

procedure Proc(Stream: TStream);
begin
  writeln('Proc(Stream: TStream)');
  err:=false;
end;

var
  InputStream: TMemoryStream;
begin
  err:=true;
  InputStream:=TMemoryStream.Create;
  Proc(InputStream);
  if err then
    halt(1);
end.