mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-10 03:41:39 +01:00
24 lines
429 B
ObjectPascal
24 lines
429 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 4390 }
|
|
{ Submitted by "Benjamin Rosseaux" on 2005-09-28 }
|
|
{ e-mail: benjamin@0ok.de }
|
|
PROGRAM Test;
|
|
{$APPTYPE CONSOLE}
|
|
{$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.
|