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

+ add test for #31714 which is already fixed

Browse Source 
git-svn-id: trunk@45859 -
This commit is contained in:
florian 2020-07-25 21:08:58 +00:00
parent a534fb9acd
commit 3db2794598
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -18093,6 +18093,7 @@ tests/webtbs/tw3165.pp svneol=native#text/plain
tests/webtbs/tw31675.pp svneol=native#text/pascal
tests/webtbs/tw3168.pp svneol=native#text/plain
tests/webtbs/tw3170.pp svneol=native#text/plain
tests/webtbs/tw31714.pp -text svneol=native#text/pascal
tests/webtbs/tw3172.pp svneol=native#text/plain
tests/webtbs/tw3173.pp svneol=native#text/plain
tests/webtbs/tw3174.pp svneol=native#text/plain

19
tests/webtbs/tw31714.pp Normal file
View File

@ -0,0 +1,19 @@
{$goto on}
procedure DoIt; inline;
{IDE crashes when procedure declared inline. It does not matter whether
goto is enabled or not}
var n: integer;
label l1;
begin
n := 0;
l1:
if n < 100 then begin
inc (n);
goto l1;
end;
writeln (n);
end;
begin
DoIt;
end.