tw1306.pp 305 B

12345678910111213141516171819
  1. { %FAIL }
  2. { Source provided for Free Pascal Bug Report 1306 }
  3. { Submitted by "Sergey Kosarevsky" on 2000-12-22 }
  4. { e-mail: [email protected] }
  5. UNIT OPERAT;
  6. INTERFACE
  7. USES DOS;
  8. OPERATOR [] (A,B:SEARCHREC) R:BOOLEAN;
  9. IMPLEMENTATION
  10. OPERATOR [] (A,B:SEARCHREC) R:BOOLEAN;
  11. BEGIN
  12. END;
  13. BEGIN
  14. END.