mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 20:08:52 +02:00

string in a typed constant, like Delphi (instead of generating a bogus address) git-svn-id: trunk@33958 -
10 lines
86 B
ObjectPascal
10 lines
86 B
ObjectPascal
{ %FAIL }
|
|
|
|
const
|
|
w : widestring = 'abcdef';
|
|
|
|
pw : pwidechar = @w[3];
|
|
|
|
begin
|
|
end.
|