mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 16:23:44 +02:00
14 lines
125 B
ObjectPascal
14 lines
125 B
ObjectPascal
{ %norun }
|
|
{ %opt=-Sew }
|
|
|
|
procedure t;
|
|
var
|
|
f:array[1..10] of text;
|
|
begin
|
|
assign(f[1],paramstr(0));
|
|
end;
|
|
|
|
begin
|
|
t;
|
|
end.
|