mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 08:13:42 +02:00
10 lines
189 B
ObjectPascal
10 lines
189 B
ObjectPascal
program smalltest;
|
|
const
|
|
teststr : string = ' '#9#255#0;
|
|
begin
|
|
writeln(teststr);
|
|
teststr := 'gaga';
|
|
writeln(teststr);
|
|
if teststr<>'gaga' then halt(1);
|
|
end.
|