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

* remove old test

Browse Source 
git-svn-id: trunk@1473 -
This commit is contained in:
peter 2005-10-18 12:30:04 +00:00
parent 0981495c7b
commit 5a00f019d8
2 changed files with 0 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

32
tests/webtbf/tw4104.pp
View File

@ -1,32 +0,0 @@
{ %fail }
{ Source provided for Free Pascal Bug Report 4104 }
{ Submitted by "Daniël Mantione" on 2005-06-22 }
{ e-mail: daniel@freepascal.org }
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.