mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:28:08 +02:00
bc4a8ac63e
+ check for postfix operators after string contants, resolves #23136 git-svn-id: trunk@22929 -
15 lines
172 B
ObjectPascal
15 lines
172 B
ObjectPascal
var
|
|
ws:widestring;
|
|
s:string;
|
|
begin
|
|
s:='Aajsljaklsja'[1];
|
|
if s<>'A' then
|
|
halt(1);
|
|
|
|
ws:=#1234#134#312[1];
|
|
if ws<>#1234 then
|
|
halt(1);
|
|
|
|
writeln('ok');
|
|
end.
|