diff --git a/TestSuite/operators3.pas b/TestSuite/operators3.pas
new file mode 100644
index 000000000..4d4a90405
--- /dev/null
+++ b/TestSuite/operators3.pas
@@ -0,0 +1,4 @@
+begin
+  assert(1bi shl 2 = 4bi);
+  assert(10bi shr 2 = 2bi);
+end.
\ No newline at end of file
diff --git a/TreeConverter/TreeConversion/compiler_string_consts.cs b/TreeConverter/TreeConversion/compiler_string_consts.cs
index c7d063a23..51ca4ddeb 100644
--- a/TreeConverter/TreeConversion/compiler_string_consts.cs
+++ b/TreeConverter/TreeConversion/compiler_string_consts.cs
@@ -38,6 +38,8 @@ namespace PascalABCCompiler.TreeConverter
             oper_names[mod_name] = "op_Modulus";
             oper_names[not_name] = "op_LogicalNot";
             oper_names[noteq_name] = "op_Inequality";
+            oper_names[shl_name] = "op_LeftShift";
+            oper_names[shr_name] = "op_RightShift";
         }
 
         public static string GetNETOperName(string name)