paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +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/tw9384.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/tw9672.pp svneol=native#text/plain
tests/webtbs/tw9673.pp -text
tests/webtbs/tw9695.pp svneol=native#text/plain
tests/webtbs/tw9704.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/ub1883.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}
type
generic GList<_T> = class
var private
i : integer;
function some_func(): integer;
end;
function GList.some_func(): integer;
begin
i := -1;
Result := -1;
end { some_func };
type
TA = specialize GList<integer>;
var
A : TA;
begin
A:=TA.Create;
if A.some_func<>-1 then
halt(1);
writeln('ok');
end.
{$mode objfpc}
type
generic GList<_T> = class
var private
i : integer;
function some_func(): integer;
end;
function GList.some_func(): integer;
begin
i := -1;
Result := -1;
end { some_func };
type
TA = specialize GList<integer>;
var
A : TA;
begin
A:=TA.Create;
if A.some_func<>-1 then
halt(1);
writeln('ok');
end.