mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 12:03:45 +02:00
36 lines
549 B
ObjectPascal
36 lines
549 B
ObjectPascal
program test1;
|
|
|
|
{compiles under TPC - PPC386 gives internal error}
|
|
|
|
Type str1=string[160];
|
|
|
|
var
|
|
fileof :file of str1;
|
|
lol :array[1..8] of str1;
|
|
nu,n:integer;
|
|
i,tt :str1;
|
|
ul :text;
|
|
a: str1;
|
|
|
|
|
|
procedure test;
|
|
|
|
|
|
begin
|
|
for nu:=1 to 8 do read(fileof,lol[nu]);
|
|
writeln('File contents');
|
|
for nu:=4 to 8 do writeln(lol[nu]);
|
|
end;
|
|
|
|
|
|
begin
|
|
assign(fileof,'test.dat');
|
|
rewrite(fileof);
|
|
a:='dummy string !!';
|
|
for nu:=1 to 8 do write(fileof,a);
|
|
close(fileof);
|
|
reset(fileof);
|
|
test;
|
|
close(fileof);
|
|
end.
|