mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:58:31 +02:00
b8ed0fac5d
string in a typed constant, like Delphi (instead of generating a bogus
address)
git-svn-id: trunk@33958 -
10 lines
95 B
ObjectPascal
10 lines
95 B
ObjectPascal
{ %FAIL }
|
|
|
|
const
|
|
u : unicodestring = '123456879';
|
|
|
|
pu : punicodechar = @u[4];
|
|
|
|
begin
|
|
end.
|