blob: 5864fe61d0669ed4d5cce785ccc339e1ab10993e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{ 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.
|
