From 1b99b47d7cdcef2bd2b4d19a04d8681dc07730de Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 22 Aug 2001 21:18:08 +0000
Subject: [PATCH] no message
---
tests/tbs/tb0374.pp | 23 +++++++++++++++++++++++
tests/tbs/tb0375.pp | 20 ++++++++++++++++++++
2 files changed, 43 insertions(+)
create mode 100644 tests/tbs/tb0374.pp
create mode 100644 tests/tbs/tb0375.pp
diff --git a/tests/tbs/tb0374.pp b/tests/tbs/tb0374.pp
new file mode 100644
index 0000000000..86ea2e8808
--- /dev/null
+++ b/tests/tbs/tb0374.pp
@@ -0,0 +1,23 @@
+{ %VERSION=1.1 }
+{$mode delphi}
+type
+ tc1 = class
+ procedure a;overload;virtual;
+ end;
+
+ tc2 = class(tc1)
+ procedure a;override;
+ end;
+
+procedure tc1.a;
+
+ begin
+ end;
+
+procedure tc2.a;
+
+ begin
+ end;
+
+begin
+end.
diff --git a/tests/tbs/tb0375.pp b/tests/tbs/tb0375.pp
new file mode 100644
index 0000000000..3c5764723a
--- /dev/null
+++ b/tests/tbs/tb0375.pp
@@ -0,0 +1,20 @@
+{ %VERSION=1.1 }
+{$mode objfpc}
+
+type
+ i1 = interface
+ procedure intfp;
+ end;
+
+ tc1 = class(tobject,i1)
+ procedure i1.intfp = p;
+ procedure p;
+ end;
+
+procedure tc1.p;
+
+ begin
+ end;
+
+begin
+end.