paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:26:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed wrong test number

Browse Source 
git-svn-id: trunk@8735 -
This commit is contained in:
florian 2007-10-06 14:35:42 +00:00
parent 6e5ff9b825
commit 0f4f080d91
2 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -8467,13 +8467,13 @@ tests/webtbs/tw9347a.pp svneol=native#text/plain
tests/webtbs/tw9347b.pp svneol=native#text/plain tests/webtbs/tw9347b.pp svneol=native#text/plain
tests/webtbs/tw9384.pp svneol=native#text/plain tests/webtbs/tw9384.pp svneol=native#text/plain
tests/webtbs/tw9385.pp svneol=native#text/plain tests/webtbs/tw9385.pp svneol=native#text/plain
tests/webtbs/tw9471.pp -text
tests/webtbs/tw9667.pp svneol=native#text/plain tests/webtbs/tw9667.pp svneol=native#text/plain
tests/webtbs/tw9672.pp svneol=native#text/plain tests/webtbs/tw9672.pp svneol=native#text/plain
tests/webtbs/tw9673.pp -text tests/webtbs/tw9673.pp -text
tests/webtbs/tw9695.pp svneol=native#text/plain tests/webtbs/tw9695.pp svneol=native#text/plain
tests/webtbs/tw9704.pp svneol=native#text/plain tests/webtbs/tw9704.pp svneol=native#text/plain
tests/webtbs/tw9766.pp svneol=native#text/plain tests/webtbs/tw9766.pp svneol=native#text/plain
tests/webtbs/tw9827.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain tests/webtbs/uw0555.pp svneol=native#text/plain

54
tests/webtbs/tw9471.pp → tests/webtbs/tw9827.pp
View File

@ -1,27 +1,27 @@
{$mode objfpc} {$mode objfpc}
type type
generic GList<_T> = class generic GList<_T> = class
var private var private
i : integer; i : integer;
function some_func(): integer; function some_func(): integer;
end; end;
function GList.some_func(): integer; function GList.some_func(): integer;
begin begin
i := -1; i := -1;
Result := -1; Result := -1;
end { some_func }; end { some_func };
type type
TA = specialize GList<integer>; TA = specialize GList<integer>;
var var
A : TA; A : TA;
begin begin
A:=TA.Create; A:=TA.Create;
if A.some_func<>-1 then if A.some_func<>-1 then
halt(1); halt(1);
writeln('ok'); writeln('ok');
end. end.