paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-26 05:38:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test to make sure any future fix of mantis #12508 takes this special

Browse Source 
case into account

git-svn-id: trunk@12019 -
This commit is contained in:
Jonas Maebe 2008-11-02 14:23:55 +00:00
parent 937067e367
commit 7c919b3c74
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8605,6 +8605,7 @@ tests/webtbs/tw12249.pp svneol=native#text/plain
tests/webtbs/tw1228.pp svneol=native#text/plain tests/webtbs/tw1228.pp svneol=native#text/plain
tests/webtbs/tw1229.pp svneol=native#text/plain tests/webtbs/tw1229.pp svneol=native#text/plain
tests/webtbs/tw1250.pp svneol=native#text/plain tests/webtbs/tw1250.pp svneol=native#text/plain
tests/webtbs/tw12508a.pp svneol=native#text/plain
tests/webtbs/tw1251b.pp svneol=native#text/plain tests/webtbs/tw1251b.pp svneol=native#text/plain
tests/webtbs/tw1255.pp svneol=native#text/plain tests/webtbs/tw1255.pp svneol=native#text/plain
tests/webtbs/tw1269.pp svneol=native#text/plain tests/webtbs/tw1269.pp svneol=native#text/plain

25
tests/webtbs/tw12508a.pp Normal file
View File

@ -0,0 +1,25 @@
{ %norun }
{ %opt=-Sew }
procedure test(a: longint);
var
i: longint;
begin
i:=1;
if (a < 0) then
begin
for i := 1 to 2 do
writeln(i);
end
else
begin
{ the for-loop in the then-branch must not mark i in this block
as "uninitialised"
}
if i > 0 then
writeln(i);
end;
end;
begin
end.