From a25a8bfe0e844087fa5b984ca1ef57b751ab711e Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Thu, 28 Dec 2023 11:46:18 +0100
Subject: [PATCH] #2676

---
 TestSuite/operators3.pas                               | 4 ++++
 TreeConverter/TreeConversion/compiler_string_consts.cs | 2 ++
 2 files changed, 6 insertions(+)
 create mode 100644 TestSuite/operators3.pas

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)