fpcsrc/tests/test/twrstr7.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ from GPC test suite }

{$mode objfpc}
Program WriteByte;

var
  a: array [ 0..3 ] of Byte = ( ord ( 'O' ), ord ( 'K' ), 42, 137 );

var
  S: String [ 255 ];

begin
  WriteStr ( S, a [ 0 ], a [ 1 ] );
  halt(ord(S <> '7975'));
end.