+ Added test

tests/tbf/tb0163.pp

@@ -0,0 +1,12 @@
+{ %fail }
+unit Testunit;	
+{This doesn't fail although it should due to non resolved forward. OR}
+
+interface
+
+implementation
+
+procedure x; forward;
+
+//begin   {If the comment is removed, it fails as it should.}
+end.