* nice wrong code that should give an error !!

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.