* fixed test (it should fail)

git-svn-id: trunk@11709 -

tests/webtbs/tw11763.pp

@@ -1,9 +1,13 @@
+{ %fail }
+
 {$goto on}
+{$inline on}
 procedure p; inline;
 label x;
 begin
     goto x
 end;
 begin
+  p;
 end.