paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 14:49:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small test for argv/argc checking

Browse Source
This commit is contained in:
carl 2002-10-19 22:22:33 +00:00
parent c8b64f79dc
commit 8982ae04bb
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/test/units/system/targs.pp Normal file
View File

@ -0,0 +1,18 @@
{ %INTERACTIVE }
program targs;
var
i: integer;
Begin
for i:=0 to (argc-1) do
Begin
WriteLn(argv[i]);
End;
end.
{
$Log$
Revision 1.1 2002-10-19 22:22:33 carl
* small test for argv/argc checking
}