blob: f2cad1bb0e9a74464ddbc104e46d35b720594d1a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{ 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.
|
