* fixed test according to Kylix behaviour (which means current

    FPC behaviour is wrong)

git-svn-id: trunk@6851 -

.gitattributes

@@ -7173,6 +7173,7 @@ tests/webtbf/tw3716.pp svneol=native#text/plain
 tests/webtbf/tw3738.pp svneol=native#text/plain
 tests/webtbf/tw3740.pp svneol=native#text/plain
 tests/webtbf/tw3790.pp svneol=native#text/plain
+tests/webtbf/tw3930a.pp svneol=native#text/plain
 tests/webtbf/tw3931b.pp svneol=native#text/plain
 tests/webtbf/tw3969.pp svneol=native#text/plain
 tests/webtbf/tw4103.pp svneol=native#text/plain

tests/webtbf/tw3930a.pp

@@ -0,0 +1,25 @@
+{ %fail }
+
+{ Gives under Kylix:
+
+tw3930a.pp(22) Error: Incompatible types: 'TMyStringList' and 'TStringList'
+
+}
+
+{$ifdef fpc}
+{$mode objfpc}
+{$endif}
+uses
+  Classes;
+  
+type
+  TMyStringList = type TStringlist;
+  
+var
+  list : TMyStringList;
+
+begin
+  list:=TMyStringList.Create;
+end.
+
+    

tests/webtbs/tw3930.pp

@@ -1,19 +1,20 @@
-{$mode objfpc}
-uses
-  classes;
-  
-type
-  TMyStringList = type TStringlist;
-  
-var
-  list : TMyStringList;
-
-begin
-  list:=TMyStringList.Create;
-  list.Free;
-  if pointer(TMyStringList)=pointer(TStringList) then
-    halt(1);
-  writeln('ok');
-end.
-
-    
+{$ifdef fpc}
+{$mode objfpc}
+{$endif}
+uses
+  Classes;
+  
+type
+  TMyStringList = type TStringlist;
+  
+var
+  list : TMyStringList;
+
+begin
+  TMyStringList.Create.Free;
+  if pointer(TMyStringList)<>pointer(TStringList) then
+    halt(1);
+  writeln('ok');
+end.
+
+