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

* Extend test between unit_a.var variable and u_unit_a.var procedure

Browse Source 
git-svn-id: trunk@18929 -
This commit is contained in:
pierre 2011-08-31 22:40:02 +00:00
parent c8cf28e4ef
commit 6528363222
3 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -12546,6 +12546,7 @@ tests/webtbs/tw9918.pp svneol=native#text/plain
tests/webtbs/tw9919.pp svneol=native#text/plain
tests/webtbs/tw9985.pp svneol=native#text/plain
tests/webtbs/tw9985a.pp svneol=native#text/plain
tests/webtbs/u_uvmta.pp svneol=native#text/pascal
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uvmt.pp svneol=native#text/pascal

4
tests/webtbs/tw20093a.pp
View File

@ -14,7 +14,7 @@
program vmt_uvmt;
uses
uvmta, uvmta_a;
u_uvmta, uvmta, uvmta_a;
var
t : longint;
@ -35,7 +35,9 @@ begin
end;
test;
a_test;
u_uvmta.a_int;
if (test_count <> 1) or
(u_test_count <> 1) or
(a_test_count <> 1) then
begin
Writeln('Wrong code generated');

19
tests/webtbs/u_uvmta.pp Executable file
View File

@ -0,0 +1,19 @@
unit u_uvmta;
interface
const
u_test_count : longint = 0;
procedure a_int;
implementation
procedure a_int;
begin
Writeln('Procedure a_int in u_uvmta unit');
inc(u_test_count);
end;
end.