mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 23:09:18 +02:00
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 -
This commit is contained in:
parent
210e78e4fa
commit
04ac114c77
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -7890,7 +7890,6 @@ tests/tbf/tb0066.pp svneol=native#text/plain
|
|||||||
tests/tbf/tb0067.pp svneol=native#text/plain
|
tests/tbf/tb0067.pp svneol=native#text/plain
|
||||||
tests/tbf/tb0068.pp svneol=native#text/plain
|
tests/tbf/tb0068.pp svneol=native#text/plain
|
||||||
tests/tbf/tb0069.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/tb0071.pp svneol=native#text/plain
|
||||||
tests/tbf/tb0072.pp svneol=native#text/plain
|
tests/tbf/tb0072.pp svneol=native#text/plain
|
||||||
tests/tbf/tb0073.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/tb0067.pp svneol=native#text/plain
|
||||||
tests/tbs/tb0068.pp svneol=native#text/plain
|
tests/tbs/tb0068.pp svneol=native#text/plain
|
||||||
tests/tbs/tb0069.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/tb0071.pp svneol=native#text/plain
|
||||||
tests/tbs/tb0072.pp svneol=native#text/plain
|
tests/tbs/tb0072.pp svneol=native#text/plain
|
||||||
tests/tbs/tb0073.pp svneol=native#text/plain
|
tests/tbs/tb0073.pp svneol=native#text/plain
|
||||||
|
@ -1,11 +1,9 @@
|
|||||||
{ %FAIL }
|
|
||||||
{ Old file: tbf0343.pp }
|
{ Old file: tbf0343.pp }
|
||||||
{ }
|
|
||||||
|
|
||||||
{$mode delphi}
|
{$mode delphi}
|
||||||
type
|
type
|
||||||
TListEntry = record
|
TListEntry = record
|
||||||
Next: ^TListEntry; (*<-- Error message here*)
|
Next: ^TListEntry; // delphi and fpc allows this now
|
||||||
Data: Integer;
|
Data: Integer;
|
||||||
end;
|
end;
|
||||||
|
|
Loading…
Reference in New Issue
Block a user