freepascal.compiler/tests/tbs/tb0158.pp

{ 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.