From acfa2088efb90c4eb3b58e18f9261ab113287938 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 25 Dec 2018 17:52:56 +0000
Subject: [PATCH]   + test for previous commit

git-svn-id: trunk@40646 -
---
 .gitattributes       |  1 +
 tests/test/tb0266.pp | 24 ++++++++++++++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100644 tests/test/tb0266.pp

diff --git a/.gitattributes b/.gitattributes
index 02e9b84edd..3eb5766734 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -12844,6 +12844,7 @@ tests/test/tasmpublic3.pp svneol=native#text/pascal
 tests/test/tasmread.pp svneol=native#text/plain
 tests/test/tasout.pp svneol=native#text/plain
 tests/test/tassignmentoperator1.pp svneol=native#text/pascal
+tests/test/tb0266.pp svneol=native#text/plain
 tests/test/tblock1.pp svneol=native#text/plain
 tests/test/tblock1a.pp svneol=native#text/plain
 tests/test/tblock1c.pp svneol=native#text/plain
diff --git a/tests/test/tb0266.pp b/tests/test/tb0266.pp
new file mode 100644
index 0000000000..a8696ca49c
--- /dev/null
+++ b/tests/test/tb0266.pp
@@ -0,0 +1,24 @@
+{ %fail }
+
+{$mode objfpc}
+{$interfaces corba}
+
+type
+  tc = class
+   strict private
+    procedure test;
+  end;
+
+  tintf = interface
+    procedure test;
+  end;
+
+  tc2 = class(tc, tintf)
+  end;
+
+procedure tc.test;
+begin
+end;
+
+begin
+end.