From 9bb015f2b4a26b1639a5ed647cd478d03da1bf36 Mon Sep 17 00:00:00 2001 From: pierre Date: Thu, 23 Mar 2000 21:30:31 +0000 Subject: [PATCH] * nice wrong code that should give an error !! --- tests/tf/tf000008.pp | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 tests/tf/tf000008.pp diff --git a/tests/tf/tf000008.pp b/tests/tf/tf000008.pp new file mode 100644 index 0000000000..cce0e21c91 --- /dev/null +++ b/tests/tf/tf000008.pp @@ -0,0 +1,20 @@ + + +type + obj = object + procedure method1; + procedure method2; + end; + + procedure obj.method1; + + procedure obj.method2; + + begin + end; + + begin + end; + + begin + end. \ No newline at end of file