mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-24 16:09:23 +02:00
* forgot to commit tests in r42329
git-svn-id: trunk@42330 -
This commit is contained in:
parent
2e4d8e36a5
commit
433f07c407
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -16666,6 +16666,8 @@ tests/webtbs/tw35533.pp svneol=native#text/pascal
|
||||
tests/webtbs/tw3554.pp svneol=native#text/plain
|
||||
tests/webtbs/tw3564.pp svneol=native#text/plain
|
||||
tests/webtbs/tw3567.pp svneol=native#text/plain
|
||||
tests/webtbs/tw35670a.pp svneol=native#text/pascal
|
||||
tests/webtbs/tw35670b.pp svneol=native#text/pascal
|
||||
tests/webtbs/tw3572.pp svneol=native#text/plain
|
||||
tests/webtbs/tw3573.pp svneol=native#text/plain
|
||||
tests/webtbs/tw35735.pp svneol=native#text/pascal
|
||||
|
17
tests/webtbs/tw35670a.pp
Normal file
17
tests/webtbs/tw35670a.pp
Normal file
@ -0,0 +1,17 @@
|
||||
{ %NORUN }
|
||||
|
||||
program tw35670a;
|
||||
|
||||
{$mode objfpc}
|
||||
|
||||
generic procedure DoThis<T>(msg: T);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure DoThis(msg: TObject);
|
||||
begin
|
||||
end;
|
||||
|
||||
begin
|
||||
|
||||
end.
|
17
tests/webtbs/tw35670b.pp
Normal file
17
tests/webtbs/tw35670b.pp
Normal file
@ -0,0 +1,17 @@
|
||||
{ %NORUN }
|
||||
|
||||
program tw35670b;
|
||||
|
||||
{$mode delphi}
|
||||
|
||||
procedure DoThis<T>(msg: T);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure DoThis(msg: TObject);
|
||||
begin
|
||||
end;
|
||||
|
||||
begin
|
||||
|
||||
end.
|
Loading…
Reference in New Issue
Block a user