initial import

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@1 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 26 insertions, 0 deletions

diff --git a/tests/tbs/tb0119.pp b/tests/tbs/tb0119.pp
new file mode 100644
index 0000000000..5d46a8a993
--- /dev/null
+++ b/tests/tbs/tb0119.pp
@@ -0,0 +1,26 @@
+{ Old file: tbs0139.pp }
+{ Cannot access protected method of ancestor class from other unit. OK 0.99.6 }
+
+unit tb0119;
+
+{$mode objfpc}
+
+ interface
+ uses
+    ub0119;
+
+ type
+    AnotherClass=class(SomeClass)
+    protected
+    procedure doSomething; override;
+    end ;
+
+ implementation
+
+ procedure AnotherClass.doSomething;
+ begin
+ inherited doSomething;  // this causes the error: " can not call protected
+                         //  method from here " ( or something similar )
+ end ;
+
+end.