From b43aef367e107141b0f12e945bf932c0a35f70f5 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 19 Aug 2001 21:09:25 +0000
Subject: [PATCH]   * several new tests

---
 tests/tbs/tb0370.pp | 11 +++++++++++
 tests/tbs/tb0371.pp | 26 ++++++++++++++++++++++++++
 tests/tbs/tb0372.pp | 17 +++++++++++++++++
 tests/tbs/tb0373.pp |  8 ++++++++
 4 files changed, 62 insertions(+)
 create mode 100644 tests/tbs/tb0370.pp
 create mode 100644 tests/tbs/tb0371.pp
 create mode 100644 tests/tbs/tb0372.pp
 create mode 100644 tests/tbs/tb0373.pp

diff --git a/tests/tbs/tb0370.pp b/tests/tbs/tb0370.pp
new file mode 100644
index 0000000000..59c344b2b6
--- /dev/null
+++ b/tests/tbs/tb0370.pp
@@ -0,0 +1,11 @@
+{ %VERSION=1.1 }
+
+{$mode delphi}
+type
+   tenum = (e1,e2,e3);
+
+const
+   e256 = tenum(256);
+
+begin
+end.
diff --git a/tests/tbs/tb0371.pp b/tests/tbs/tb0371.pp
new file mode 100644
index 0000000000..6701310f7f
--- /dev/null
+++ b/tests/tbs/tb0371.pp
@@ -0,0 +1,26 @@
+{ %VERSION=1.1 }
+{$mode delphi}
+unit test;
+
+interface
+
+  const
+     dllname = 'lalala';
+
+  type
+     pinteger = ^integer;
+
+  procedure p1(var i : integer);overload;
+  procedure p1(i : pinteger);overload;
+  procedure p2(var i : integer);overload;
+  procedure p2(i : pinteger);overload;
+
+implementation
+
+  procedure p1(var i : integer);overload;external dllname;
+  procedure p1(i : pinteger);overload;external dllname;
+  procedure p2(var i : integer);external dllname name 'lalala';
+  procedure p2(i : pinteger);external dllname name 'lalala';
+
+begin
+end.
diff --git a/tests/tbs/tb0372.pp b/tests/tbs/tb0372.pp
new file mode 100644
index 0000000000..d59cdd8c8d
--- /dev/null
+++ b/tests/tbs/tb0372.pp
@@ -0,0 +1,17 @@
+{ %VERSION=1.1 }
+type
+   imyinterface = interface
+      // this program isn't supposed to run so the guid doesn't matter }
+      ['{00000000-0000-0000-0000-000000000000}']
+      procedure p;
+   end;
+
+const
+   iid_imyinterface = imyinterface;
+
+var
+   g : tguid;
+
+begin
+   g:=imyinterface;
+end.
diff --git a/tests/tbs/tb0373.pp b/tests/tbs/tb0373.pp
new file mode 100644
index 0000000000..53dce75bb0
--- /dev/null
+++ b/tests/tbs/tb0373.pp
@@ -0,0 +1,8 @@
+{ %VERSION=1.1 }
+type
+   tmyinterface = interface
+      procedure p(p : longint); // Delphi allows this
+   end;
+
+begin
+end.