blob: 30c456d8dfa4910bdb763491b1db7159faaf1327 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ Source provided for Free Pascal Bug Report 4390 }
{ Submitted by "Benjamin Rosseaux" on 2005-09-28 }
{ e-mail: benjamin@0ok.de }
PROGRAM Test;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
PROCEDURE WriteToFile(CONST Buf;Size:INTEGER);
var
s : shortstring;
BEGIN
move(Buf,s[1],size);
s[0]:=chr(size);
// writeln('Writing: "',s,'"');
if s<>'TEST' then
halt(1);
END;
BEGIN
WriteToFile('TEST',4);
END.
|
