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

Test fix Revision 29450 fro bug report 27294.

Browse Source 
git-svn-id: trunk@29452 -
This commit is contained in:
pierre 2015-01-12 15:13:15 +00:00
parent d033c7e122
commit c19f3d6994
3 changed files with 56 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -14192,6 +14192,7 @@ tests/webtbs/tw2725.pp svneol=native#text/plain
tests/webtbs/tw2727.pp svneol=native#text/plain
tests/webtbs/tw2728.pp svneol=native#text/plain
tests/webtbs/tw2729.pp svneol=native#text/plain
tests/webtbs/tw27294.pp svneol=native#text/plain
tests/webtbs/tw2730.pp svneol=native#text/plain
tests/webtbs/tw2731.pp svneol=native#text/plain
tests/webtbs/tw2736.pp svneol=native#text/plain
@ -14935,6 +14936,7 @@ tests/webtbs/uw26922a.pp svneol=native#text/pascal
tests/webtbs/uw26922b.pp svneol=native#text/pascal
tests/webtbs/uw2706a.pp svneol=native#text/plain
tests/webtbs/uw2706b.pp svneol=native#text/plain
tests/webtbs/uw27294.pp svneol=native#text/plain
tests/webtbs/uw2731.pp svneol=native#text/plain
tests/webtbs/uw2738.pp svneol=native#text/plain
tests/webtbs/uw2834.pp svneol=native#text/plain

26
tests/webtbs/tw27294.pp Normal file
View File

@ -0,0 +1,26 @@
uses
uw27294;
var
p : procedure;
procedure test;
begin
p:=@test;
writeln('OK');
end;
procedure global;
begin
p:=nil;
test;
p();
end;
begin
global;
uw27294.global;
end.

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

@ -0,0 +1,28 @@
unit
uw27294;
interface
procedure global;
implementation
var
p : procedure;
procedure test;
begin
p:=@test;
writeln('OK');
end;
procedure global;
begin
p:=nil;
test;
p();
end;
end.