Test suite results for test file tbs/tb0158.pp

Test run data :

Test file "tbs/tb0158.pp" information:

t_id 397
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 939749.

Source:

{ Old file: tbs0189.pp }
{ cant compare adresses of function variables !! As tbs0188 FPC syntax problem see source (PM) }

var m: procedure;

procedure test;
begin
end;

procedure test2;
begin
end;

begin
 if @test <> @test2 then
   writeln('different!')
 else
   writeln('error');
 m:=@test;

 { here also the syntax was wrong !! }
 {  @m <> @test have different types !! }
 if m <> @test then
   writeln('error');
end.

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