{ %FAIL } program toperator73; operator < (left, right: Single) res : Boolean; begin end; begin end.