paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 13:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added tests for Mantis #33839 which is now fixed with the recent changes

Browse Source 
git-svn-id: trunk@39234 -
This commit is contained in:
svenbarth 2018-06-15 13:49:33 +00:00
parent 22a5e5e4ee
commit c495f10b29
4 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -16153,6 +16153,8 @@ tests/webtbs/tw33635.pp svneol=native#text/pascal
tests/webtbs/tw3364.pp svneol=native#text/plain
tests/webtbs/tw3366.pp svneol=native#text/plain
tests/webtbs/tw33818.pp svneol=native#text/pascal
tests/webtbs/tw33839a.pp -text svneol=native#text/pascal
tests/webtbs/tw33839b.pp -text svneol=native#text/pascal
tests/webtbs/tw3402.pp svneol=native#text/plain
tests/webtbs/tw3411.pp svneol=native#text/plain
tests/webtbs/tw3418.pp svneol=native#text/plain
@ -16766,6 +16768,7 @@ tests/webtbs/uw3292a.pp svneol=native#text/plain
tests/webtbs/uw3340.pp svneol=native#text/plain
tests/webtbs/uw3353.pp svneol=native#text/plain
tests/webtbs/uw3356.pp svneol=native#text/plain
tests/webtbs/uw33839.pp -text svneol=native#text/pascal
tests/webtbs/uw3429.pp svneol=native#text/plain
tests/webtbs/uw3474a.pp svneol=native#text/plain
tests/webtbs/uw3474b.pp svneol=native#text/plain

10
tests/webtbs/tw33839a.pp Normal file
View File

@ -0,0 +1,10 @@
{ %NORUN }
program tw33839a;
{$mode objfpc} // change to mode Delphi and it works
uses uw33839;
begin
testme(100);
testme(1.0);
specialize testme<String>('Test');
end.

10
tests/webtbs/tw33839b.pp Normal file
View File

@ -0,0 +1,10 @@
{ %NORUN }
program tw33839b;
{$mode delphi}
uses uw33839;
begin
testme(100);
testme(1.0);
testme<String>('Test');
end.

28
tests/webtbs/uw33839.pp Normal file
View File

@ -0,0 +1,28 @@
unit uw33839;
{$mode delphi} // mode does not matter!
interface
procedure testme(const a:integer);overload;
procedure testme(const a:cardinal);overload;
procedure testme(const a:double);overload;
procedure testme<T>(const a:T);overload;
implementation
procedure testme(const a:integer);overload;
begin
//
end;
procedure testme(const a:cardinal);overload;
begin
//
end;
procedure testme(const a:double);overload;
begin
//
end;
procedure testme<T>(const a:T);overload;
begin
//
end;
end.