paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 12:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source 
git-svn-id: trunk@651 -
This commit is contained in:
peter 2005-07-18 13:27:28 +00:00
parent 3051c91530
commit 8bd757c5ed
2 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5490,6 +5490,7 @@ tests/webtbf/tw3790.pp svneol=native#text/plain
tests/webtbf/tw3841.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

31
tests/webtbf/tw4104.pp Executable file
View File

@ -0,0 +1,31 @@
{ 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.