mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:48:02 +02:00
20 lines
306 B
ObjectPascal
20 lines
306 B
ObjectPascal
{ %FAIL }
|
|
{ Source provided for Free Pascal Bug Report 1306 }
|
|
{ Submitted by "Sergey Kosarevsky" on 2000-12-22 }
|
|
{ e-mail: freecommander@aport2000.ru }
|
|
UNIT OPERAT;
|
|
INTERFACE
|
|
|
|
USES DOS;
|
|
|
|
OPERATOR [] (A,B:SEARCHREC) R:BOOLEAN;
|
|
|
|
IMPLEMENTATION
|
|
|
|
OPERATOR [] (A,B:SEARCHREC) R:BOOLEAN;
|
|
BEGIN
|
|
END;
|
|
|
|
BEGIN
|
|
END.
|