+ add test for #31714 which is already fixed

git-svn-id: trunk@45859 -

.gitattributes

@@ -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

tests/webtbs/tw31714.pp

@@ -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.