t_id
397
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
482408833 | 941218 | True | False | Successfully run |
Record count: 1
{ 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.