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

Merged revisions 1473 via svnmerge from

Browse Source 
http://peter@svn.freepascal.org/svn/fpc/trunk

r1473 (peter)
  * remove old test

git-svn-id: branches/fixes_2_0@1509 -
This commit is contained in:
peter 2005-10-19 08:36:04 +00:00
parent f840880c26
commit e3ae73ca34
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

@ -5369,7 +5369,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.