diff --git a/tests/test/units/system/targs.pp b/tests/test/units/system/targs.pp
new file mode 100644
index 0000000000..4d40bedd56
--- /dev/null
+++ b/tests/test/units/system/targs.pp
@@ -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
+
+}