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

+ interactive test for mantis #13313

Browse Source 
git-svn-id: trunk@12882 -
This commit is contained in:
Jonas Maebe 2009-03-14 10:37:59 +00:00
parent 239538dccf
commit b86cb8ba55
2 changed files with 98 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8796,6 +8796,7 @@ tests/webtbs/tw13210.pp svneol=native#text/plain
tests/webtbs/tw1323.pp svneol=native#text/plain
tests/webtbs/tw1327.pp svneol=native#text/plain
tests/webtbs/tw1331.pp svneol=native#text/plain
tests/webtbs/tw13313.pp svneol=native#text/plain
tests/webtbs/tw1333.pp svneol=native#text/plain
tests/webtbs/tw1348.pp svneol=native#text/plain
tests/webtbs/tw1351.pp svneol=native#text/plain

97
tests/webtbs/tw13313.pp Normal file
View File

@ -0,0 +1,97 @@
{ %interactive }
{ run in gdb, then check whether all absolute variables can be
printed and show the correct values
}
type
ta = record
a,b: word;
c,d: longint;
end;
procedure check(a, b, c: longint);
begin
if (a<>b) then
halt(c);
end;
procedure local;
var
ra: ta = (a: 12345; b: $abcd; c: 987654321; d: -1);
arra: array[4..7] of ta = ((a: 1; b: 2; c: 3; d: 4),
(a: 5; b: 6; c: 7; d: 8),
(a: 9; b: 10; c: -1; d: -2),
(a: 11; b: 12; c: -3; d: -4)
);
var
a: word absolute ra.a;
b: word absolute ra.b;
c: longint absolute ra.c;
d: longint absolute ra.d;
e: word absolute arra[5].a;
f: word absolute arra[5].b;
g: word absolute arra[6].a;
h: word absolute arra[7].b;
i: longint absolute arra[4].c;
j: longint absolute arra[4].d;
k: longint absolute arra[5].c;
l: longint absolute arra[6].d;
begin
check(a,ra.a,1);
check(b,ra.b,2);
check(c,ra.c,3);
check(d,ra.d,4);
check(e,5,5);
check(f,6,6);
check(g,9,7);
check(h,12,8);
check(i,3,9);
check(j,4,10);
check(k,7,11);
check(l,-2,12);
end;
const
ra: ta = (a: 12345; b: $abcd; c: 987654321; d: -1);
arra: array[4..7] of ta = ((a: 1; b: 2; c: 3; d: 4),
(a: 5; b: 6; c: 7; d: 8),
(a: 9; b: 10; c: -1; d: -2),
(a: 11; b: 12; c: -3; d: -4)
);
var
a: word absolute ra.a;
b: word absolute ra.b;
c: longint absolute ra.c;
d: longint absolute ra.d;
e: word absolute arra[5].a;
f: word absolute arra[5].b;
g: word absolute arra[6].a;
h: word absolute arra[7].b;
i: longint absolute arra[4].c;
j: longint absolute arra[4].d;
k: longint absolute arra[5].c;
l: longint absolute arra[6].d;
begin
local;
check(a,ra.a,1);
check(b,ra.b,2);
check(c,ra.c,3);
check(d,ra.d,4);
check(e,5,5);
check(f,6,6);
check(g,9,7);
check(h,12,8);
check(i,3,9);
check(j,4,10);
check(k,7,11);
check(l,-2,12);
end.