mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 12:59:24 +02:00
b3867488fb
+ uses getref for extracting error code
+ required command lines args can be place in the first line of
source code
following $OPT=
14 lines
141 B
ObjectPascal
14 lines
141 B
ObjectPascal
{ $OPT=-S2
|
|
}
|
|
{ tests assignements and compare }
|
|
|
|
var
|
|
o1,o2 : tobject;
|
|
|
|
begin
|
|
o1:=nil;
|
|
o2:=o1;
|
|
if o2<>nil then
|
|
halt(1);
|
|
end.
|