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

+ test from mantis #29547, fixed in r30168 as mantis #27580

Browse Source 
git-svn-id: trunk@33164 -
This commit is contained in:
Jonas Maebe 2016-03-05 19:01:47 +00:00
parent edcc251c76
commit 4039c1835c
2 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -14961,6 +14961,7 @@ tests/webtbs/tw29471.pp svneol=native#text/plain
tests/webtbs/tw2949.pp svneol=native#text/plain tests/webtbs/tw2949.pp svneol=native#text/plain
tests/webtbs/tw2953.pp svneol=native#text/plain tests/webtbs/tw2953.pp svneol=native#text/plain
tests/webtbs/tw29546.pp svneol=native#text/pascal tests/webtbs/tw29546.pp svneol=native#text/pascal
tests/webtbs/tw29547.pp svneol=native#text/plain
tests/webtbs/tw2956.pp svneol=native#text/plain tests/webtbs/tw2956.pp svneol=native#text/plain
tests/webtbs/tw2958.pp svneol=native#text/plain tests/webtbs/tw2958.pp svneol=native#text/plain
tests/webtbs/tw29585.pp svneol=native#text/plain tests/webtbs/tw29585.pp svneol=native#text/plain

37
tests/webtbs/tw29547.pp Normal file
View File

@ -0,0 +1,37 @@
program Test;
{$mode objfpc}
type
Point2D = record
x, y: Single;
end;
Line = record
start : Point2D;
endP : Point2D;
end;
function LineFrom(p1, p2: Point2D): Line;
begin
result.start := p1;
result.endP := p2;
end;
procedure Main();
var
l: Line;
pt1, pt2: Point2D;
begin
pt1.x := 1.0;
pt2.x := 2.0;
l := LineFrom(pt1, pt2);
if (l.start.x<>1.0) or
(l.endp.x<>2.0) then
halt(1);
end;
begin
Main();
end.