mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-07 01:05:56 +02:00
+ New test. Already works.
git-svn-id: trunk@7863 -
This commit is contained in:
parent
c30ad53e42
commit
9188bfb56c
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -8322,6 +8322,7 @@ tests/webtbs/tw9139.pp svneol=native#text/plain
|
|||||||
tests/webtbs/tw9139a.pp svneol=native#text/plain
|
tests/webtbs/tw9139a.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw9167.pp svneol=native#text/plain
|
tests/webtbs/tw9167.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw9174.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/ub1873.pp svneol=native#text/plain
|
||||||
tests/webtbs/ub1883.pp svneol=native#text/plain
|
tests/webtbs/ub1883.pp svneol=native#text/plain
|
||||||
tests/webtbs/uw0555.pp svneol=native#text/plain
|
tests/webtbs/uw0555.pp svneol=native#text/plain
|
||||||
|
21
tests/webtbs/tw9179.pp
Normal file
21
tests/webtbs/tw9179.pp
Normal 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.
|
Loading…
Reference in New Issue
Block a user