tests: move tb0070.pp to tbs and change expected behavior to success because delphi and fpc both allows this constructions now

git-svn-id: trunk@16647 -

.gitattributes

@@ -7890,7 +7890,6 @@ tests/tbf/tb0066.pp svneol=native#text/plain
 tests/tbf/tb0067.pp svneol=native#text/plain
 tests/tbf/tb0068.pp svneol=native#text/plain
 tests/tbf/tb0069.pp svneol=native#text/plain
-tests/tbf/tb0070.pp svneol=native#text/plain
 tests/tbf/tb0071.pp svneol=native#text/plain
 tests/tbf/tb0072.pp svneol=native#text/plain
 tests/tbf/tb0073.pp svneol=native#text/plain
@@ -8123,6 +8122,7 @@ tests/tbs/tb0066.pp svneol=native#text/plain
 tests/tbs/tb0067.pp svneol=native#text/plain
 tests/tbs/tb0068.pp svneol=native#text/plain
 tests/tbs/tb0069.pp svneol=native#text/plain
+tests/tbs/tb0070.pp svneol=native#text/plain
 tests/tbs/tb0071.pp svneol=native#text/plain
 tests/tbs/tb0072.pp svneol=native#text/plain
 tests/tbs/tb0073.pp svneol=native#text/plain

tests/tbf/tb0070.pp → tests/tbs/tb0070.pp

@@ -1,11 +1,9 @@
-{ %FAIL }
 { Old file: tbf0343.pp }
-{  }
 
 {$mode delphi}
 type
   TListEntry = record
-    Next: ^TListEntry;                      (*<-- Error message here*)
+    Next: ^TListEntry;                    // delphi and fpc allows this now
     Data: Integer;
   end;