From b061f3bd69d51f59d42f67b3ea59a006cd582029 Mon Sep 17 00:00:00 2001 From: peter Date: Fri, 9 Jun 2000 21:33:34 +0000 Subject: [PATCH] * added another dup id check --- tests/tbs/tbs0319.pp | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/tests/tbs/tbs0319.pp b/tests/tbs/tbs0319.pp index c425a02a08..a70b66a7ac 100644 --- a/tests/tbs/tbs0319.pp +++ b/tests/tbs/tbs0319.pp @@ -14,6 +14,26 @@ type procedure p2; end; + o = class + nonsense :string; + procedure flup(nonsense:string); + end; + + o2 = class + nonsense :longint; + procedure flup(nonsense:longint); + end; + +procedure o.flup(nonsense:string); +begin +end; + + +procedure o2.flup(nonsense:longint); +begin +end; + + procedure cl.p1; var k : longint;