blob: 7d0f1367f40ac1159e93f585dd5ba0e61d0efcf3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ %fail }
{$ifdef fpc}
{$mode delphi}
{$endif}
unit tw10425b;
interface
function test: string[4];
implementation
function test: string[4];
begin
end;
end.
|