Test suite results for test file tbs/tb0063.pp

Test run data :

Test file "tbs/tb0063.pp" information:

t_id 1031
t_adddate 2003/10/14
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 947969.

Source:

{ Old file: tbs0069.pp }
{  Shows problem with far qualifier in units            OK 0.99.1 (CEC) }

Unit tb0063;

Interface

Procedure MyTest;Far;         { IMPLEMENTATION expected error. }

{ Further information: NEAR IS NOT ALLOWED IN BORLAND PASCAL  }
{ Therefore the bugfix should only be for the FAR keyword.    }
(* Procedure MySecondTest;Near;                             *)

Implementation

{ near and far are not allowed here, but maybe we don't care since they are ignored by }
{ FPC.                                                                                 }
Procedure MyTest;
Begin
end;

Procedure MySecondTest;
Begin
end;



end.

Link to SVN view of tbs/tb0063.pp source.