mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:28:55 +02:00
25 lines
368 B
ObjectPascal
25 lines
368 B
ObjectPascal
program tw10933;
|
|
|
|
{$MODE DELPHI}
|
|
|
|
var
|
|
s: string[3] = 'ABC';
|
|
|
|
procedure Foo(buf: PAnsiChar; expected: AnsiChar);
|
|
begin
|
|
WriteLn(buf^);
|
|
if buf^ <> expected then
|
|
Halt(1);
|
|
end;
|
|
|
|
function ClassNameShort(): PShortString;
|
|
begin
|
|
Result := @s;
|
|
end;
|
|
|
|
begin
|
|
Foo(@ClassNameShort()^[1], 'A');
|
|
Foo(@ClassNameShort()^[2], 'B');
|
|
Foo(@ClassNameShort()^[3], 'C');
|
|
end.
|