tests/webtbf/tw6957.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ %fail }

{$IFDEF FPC}
 {$MODE TP}
{$ENDIF FPC}
unit tw6957;

interface

function tw6957: boolean;

implementation

function tw6957: boolean;
begin
 tw6957 := true;
end;

end.