tests/test/tcpstr26a.pp


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

{$ifdef fpc}
{$mode delphiunicode}
{$endif}

procedure test(p: pansichar); overload;
begin
  writeln('pchar');
  halt(1);
end;

procedure test(p: pwidechar); overload;
begin
  writeln('pwidechar');
end;

begin
  test('a');
end.