* initial test

git-svn-id: trunk@183 -

.gitattributes

@@ -6140,6 +6140,7 @@ tests/webtbs/tw3977.pp svneol=native#text/plain
 tests/webtbs/tw3977.txt svneol=native#text/plain
 tests/webtbs/tw4010.pp svneol=native#text/plain
 tests/webtbs/tw4013.pp svneol=native#text/plain
+tests/webtbs/tw4038.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

tests/webtbs/tw4038.pp

@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 4038 }
+{ Submitted by "Antonio Marti" on  2005-06-01 }
+{ e-mail: [email protected] }
+uses sysutils;
+var b: byte;
+begin
+  writeln(executeprocess('echo','works1 works2 works3'));
+  writeln(executeprocess('echo','works1 works2 works3'));
+  writeln;
+  for b:=1 to 2 do
+    writeln(executeprocess('echo','fails1 fails2 fails3'));
+end.