mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 19:08:07 +02:00
b8ed0fac5d
string in a typed constant, like Delphi (instead of generating a bogus
address)
git-svn-id: trunk@33958 -
10 lines
80 B
ObjectPascal
10 lines
80 B
ObjectPascal
{ %FAIL }
|
|
|
|
const
|
|
s : ansistring = 'test';
|
|
|
|
pc : pchar = @s[1];
|
|
|
|
begin
|
|
end.
|