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

+ new test for #9059

Browse Source 
git-svn-id: trunk@8142 -
This commit is contained in:
florian 2007-07-22 22:53:44 +00:00
parent 725f1d7176
commit 9f9a539b70
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8329,6 +8329,7 @@ tests/webtbs/tw8975.pp svneol=native#text/plain
tests/webtbs/tw8975a.pp svneol=native#text/plain
tests/webtbs/tw8977.pp svneol=native#text/plain
tests/webtbs/tw9054.pp svneol=native#text/plain
tests/webtbs/tw9059.pp svneol=native#text/plain
tests/webtbs/tw9076.pp svneol=native#text/plain
tests/webtbs/tw9076a.pp svneol=native#text/plain
tests/webtbs/tw9085.pp svneol=native#text/plain

11
tests/webtbs/tw9059.pp Normal file
View File

@ -0,0 +1,11 @@
{ %opt=-Oodfa -vw -Sew}
program DoesNotSeemToBeInited;
label 10, 20, 30;
var i: integer;
begin
goto 20;
10: begin i:= i + 1; goto 30 end;
20: i:= 1;
goto 10;
30: writeln( 'i = ', i)
end.