mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 03:28:40 +02:00
13 lines
281 B
ObjectPascal
13 lines
281 B
ObjectPascal
{ Old file: tbs0001.pp }
|
|
{ tests a bugs in the .ascii output (#0 and too long) OK 0.9.2 }
|
|
|
|
program smalltest;
|
|
const
|
|
teststr : string = ' '#9#255#0;
|
|
begin
|
|
writeln(teststr);
|
|
teststr := 'gaga';
|
|
writeln(teststr);
|
|
if teststr<>'gaga' then halt(1);
|
|
end.
|