Test suite results for test file tbs/tb0195.pp

Test run data :

Test file "tbs/tb0195.pp" information:

t_id 430
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 568888.

Source:

{ Old file: tbs0229.pp }
{ consts > 255 are truncated (should work in -S2,-Sd)  OK 0.99.11 (PFV) }

{$mode objfpc}
{$X-}

const
   CRLF = #13#10;
   c =
        '1-----------------'+CRLF+
        '2/PcbDict 200 dict'+CRLF+
        '3PcbDicljkljkljk b'+CRLF+
        '4PcbDict /DictMaix'+CRLF+
        '5% draw a pin-poll'+CRLF+
        '6% get x+CRLF+ y s'+CRLF+
        '7/thickness exch h'+CRLF+
        '8gsave x y transls'+CRLF+
        '9---------jljkljkl'+crlf+
        '10----------2jkljk'+crlf+
        '11----------jkllkk'+crlf+
        'eeeeeeeeeeeeeeeeee'+crlf+
        '2-----------------'+CRLF+
        '2/PcbDict 200 dice'+CRLF+
        'END____.XXXXXxjk b'+CRLF+
        '4PcbDict /DictMaix'+CRLF+
        '5% draw a pin-poll'+CRLF+
        '6% get x+CRLF+ y s'+CRLF+
        '7/thickness exch h'+CRLF+
        '8gsave x y transls'+CRLF+
        '9---------jljkljkl'+crlf+
        '10----------2jkljk'+crlf+
        '11----------jkllkk'+crlf+
        'eeeeeeeeeeeeeeeeee12';

begin
   write(c);
end.

Link to SVN view of tbs/tb0195.pp source.