mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
23 lines
356 B
ObjectPascal
23 lines
356 B
ObjectPascal
PROGRAM tbug1092;
|
|
USES Dos;
|
|
const
|
|
{$Ifdef Unix}
|
|
path='/etc';
|
|
{$else}
|
|
path='c:\';
|
|
{$endif}
|
|
var
|
|
t : text;
|
|
BEGIN
|
|
{ create a file }
|
|
assign(t,'tbug1092.tmp');
|
|
rewrite(t);
|
|
close(t);
|
|
if FSearch('tbug1092.tmp',path)<>'tbug1092.tmp' then
|
|
begin
|
|
writeln('FSearch didn''t find file in the current dir!');
|
|
halt(1);
|
|
end;
|
|
erase(t);
|
|
END.
|