1 files changed, 25 insertions, 0 deletions
diff --git a/tests/webtbf/tw37426.pp b/tests/webtbf/tw37426.pp
new file mode 100644
index 0000000000..c29d01f597
--- /dev/null
+++ b/tests/webtbf/tw37426.pp
@@ -0,0 +1,25 @@
+{ %FAIL }
+
+{$mode objfpc}
+uses
+  SysUtils, Classes;
+type
+
+  { TFoo }
+
+  TFoo = class
+    procedure Bar;
+  end;
+
+var
+  AByte: Byte;
+
+{ TFoo }
+
+procedure TFoo.Bar;
+begin
+  AByte := Byte.SetBit(1);
+end;
+
+begin
+end.