mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 20:08:12 +02:00
21 lines
261 B
ObjectPascal
21 lines
261 B
ObjectPascal
{$mode iso}
|
|
program test(input, output);
|
|
|
|
var
|
|
t : text;
|
|
|
|
begin
|
|
assign(t,'tisobuf1.tmp');
|
|
rewrite(t);
|
|
writeln(t,'{Test}');
|
|
close(t);
|
|
reset(t);
|
|
if t^<>'{' then
|
|
halt(1);
|
|
close(t);
|
|
erase(t);
|
|
writeln('ok');
|
|
end.
|
|
|
|
|