Browse Source

* remove old test

git-svn-id: trunk@1473 -
peter 20 years ago
parent
commit
5a00f019d8
2 changed files with 0 additions and 33 deletions
  1. 0 1
      .gitattributes
  2. 0 32
      tests/webtbf/tw4104.pp

+ 0 - 1
.gitattributes

@@ -5633,7 +5633,6 @@ tests/webtbf/tw3841.pp svneol=native#text/plain
 tests/webtbf/tw3931b.pp svneol=native#text/plain
 tests/webtbf/tw3969.pp svneol=native#text/plain
 tests/webtbf/tw4103.pp svneol=native#text/plain
-tests/webtbf/tw4104.pp svneol=native#text/plain
 tests/webtbf/tw4111.pp svneol=native#text/plain
 tests/webtbf/tw4139.pp svneol=native#text/plain
 tests/webtbf/tw4144.pp svneol=native#text/plain

+ 0 - 32
tests/webtbf/tw4104.pp

@@ -1,32 +0,0 @@
-{ %fail }
-{ Source provided for Free Pascal Bug Report 4104 }
-{ Submitted by "Daniël Mantione" on  2005-06-22 }
-{ e-mail: [email protected] }
-program bug;
-
-type junk=record
-       data:ansistring;
-     end;
-
-operator :=(x:longint) result:junk;
-
-begin
-  str(x,result.data);
-end;
-
-procedure write_junk(const data:array of junk);
-
-var i:cardinal;
-
-begin
-  for i:=low(data) to high(data) do
-   begin
-     write(data[i].data);
-     write('<-->');
-     writeln(Pchar(data[i].data));
-   end;
-end;
-
-begin
-  write_junk([1,2]);
-end.