paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 22:49:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ New test. Already works.

Browse Source 
git-svn-id: trunk@7863 -
This commit is contained in:
yury 2007-06-30 11:12:44 +00:00
parent c30ad53e42
commit 9188bfb56c
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8322,6 +8322,7 @@ tests/webtbs/tw9139.pp svneol=native#text/plain
tests/webtbs/tw9139a.pp svneol=native#text/plain
tests/webtbs/tw9167.pp svneol=native#text/plain
tests/webtbs/tw9174.pp svneol=native#text/plain
tests/webtbs/tw9179.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

21
tests/webtbs/tw9179.pp Normal file
View File

@ -0,0 +1,21 @@
type
fontdataty = record
name: ansistring;
int: longint;
end;
var
r1: fontdataty;
r2: fontdataty;
begin
fillchar(r1,sizeof(r1),0);
r1.int:= 12345;
writeln(r1.int);
r2:=r1;
writeln(r2.int);
if r1.int <> r2.int then begin
writeln('Test failed!');
Halt(1);
end;
writeln('Test OK.');
end.