mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 06:18:16 +02:00
5bb0e5992b
don't use "location.loc" if second_pass was not called on the node yet, but "expectloc" * added test git-svn-id: trunk@22789 -
19 lines
159 B
ObjectPascal
19 lines
159 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tb0586;
|
|
|
|
{$mode objfpc}
|
|
|
|
procedure Test;
|
|
var
|
|
a, b: Boolean;
|
|
obj: TObject;
|
|
begin
|
|
if assigned(obj)<>(a=b) then
|
|
;
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|