mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 02:19:22 +01:00
27 lines
358 B
ObjectPascal
27 lines
358 B
ObjectPascal
{$I+}
|
|
const
|
|
Mb=512;
|
|
siz=1024*Mb;
|
|
|
|
type
|
|
buf=array[1..siz] of byte;
|
|
|
|
var
|
|
fin,
|
|
fout : file of buf;
|
|
b1,a1 : buf;
|
|
|
|
begin
|
|
fillchar(a1,sizeof(a1),1);
|
|
assign(fout,'tmp.tmp');
|
|
rewrite(fout);
|
|
write(fout,a1);
|
|
close(fout);
|
|
|
|
assign(fin,'tmp.tmp');
|
|
reset(fin);
|
|
read(fin,b1);
|
|
close(fin);
|
|
if not b1[512*Mb]=1 then
|
|
writeln('data err');
|
|
end. |