From 107f2c49bbf6d12b29496660f2153ff14647294a Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Wed, 25 Jun 2025 19:11:42 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A1=D0=B4=D0=B5=D0=BB=D0=B0=D0=BB=20=D0=BE?=
 =?UTF-8?q?=D1=88=D0=B8=D0=B1=D0=BA=D1=83=20=D0=BF=D1=80=D0=B8=20=D0=BF?=
 =?UTF-8?q?=D0=B5=D1=80=D0=B5=D0=B4=D0=B0=D1=87=D0=B5=20=D0=B2=20=D0=BA?=
 =?UTF-8?q?=D0=B0=D1=87=D0=B5=D1=81=D1=82=D0=B2=D0=B5=20=D0=B4=D0=B5=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=B3=D0=B0=D1=82=D0=B0=20=D0=BF=D0=B0=D1=80=D0=B0=D0=BC?=
 =?UTF-8?q?=D0=B5=D1=82=D1=80=D0=BE=D0=BC=20=D0=BE=D0=B1=D0=BE=D0=B1=D1=89?=
 =?UTF-8?q?=D0=B5=D0=BD=D0=BD=D0=BE=D0=B9=20=D1=84=D1=83=D0=BD=D0=BA=D1=86?=
 =?UTF-8?q?=D0=B8=D0=B8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 TestSuite/errors/err0545.pas | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 TestSuite/errors/err0545.pas

diff --git a/TestSuite/errors/err0545.pas b/TestSuite/errors/err0545.pas
new file mode 100644
index 000000000..464aa14ed
--- /dev/null
+++ b/TestSuite/errors/err0545.pas
@@ -0,0 +1,9 @@
+procedure ppp(ob: object);
+begin
+  
+end;
+
+begin
+  //var obj: object := Shuffle;
+  ppp(Shuffle);
+end.
\ No newline at end of file