mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-10 13:49:18 +02:00
20 lines
333 B
ObjectPascal
20 lines
333 B
ObjectPascal
{ %result=1 }
|
|
{ %NEEDEDAFTER }
|
|
{ this test fails when it isn't called by execansi }
|
|
uses
|
|
sysutils;
|
|
|
|
const
|
|
comparestr='-Fu/usr/local/lib/fpc/1.0.10/units/freebsd/rtl/*';
|
|
|
|
var
|
|
i : Longint;
|
|
|
|
begin
|
|
for i:=1 to 11 do
|
|
if ParamStr(i)<>comparestr Then
|
|
halt(1);
|
|
if paramstr(12)<>'' then
|
|
halt(1);
|
|
end.
|