paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 21:28:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* forgot to commit

Browse Source 
git-svn-id: trunk@6694 -
This commit is contained in:
Jonas Maebe 2007-03-02 08:57:21 +00:00
parent e44a9ca4cb
commit 3f3aa08b28
2 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6813,6 +6813,7 @@ tests/test/trangeob.pp svneol=native#text/plain
tests/test/trecreg.pp -text tests/test/trecreg.pp -text
tests/test/trecreg2.pp svneol=native#text/plain tests/test/trecreg2.pp svneol=native#text/plain
tests/test/trecreg3.pp -text tests/test/trecreg3.pp -text
tests/test/trecreg4.pp svneol=native#text/plain
tests/test/tresstr.pp svneol=native#text/plain tests/test/tresstr.pp svneol=native#text/plain
tests/test/trtti1.pp svneol=native#text/plain tests/test/trtti1.pp svneol=native#text/plain
tests/test/trtti2.pp svneol=native#text/plain tests/test/trtti2.pp svneol=native#text/plain

30
tests/test/trecreg4.pp Normal file
View File

@ -0,0 +1,30 @@
{$bitpacking on}
type
tr = packed record
b1, b2, b3, b4: -129..127;
end;
procedure t;
var
r: tr;
l: longint;
begin
r.b4 := -5;
r.b3 := -128;
r.b2 := 127;
r.b1 := -1;
if (r.b1 <> -1) or
(r.b2 <> 127) or
(r.b3 <> -128) or
(r.b4 <> -5) then
begin
writeln('error');
halt(1);
end;
end;
begin
t;
end.