fpc/tests/webtbs/u_uvmta.pp
2011-12-19 17:40:02 +00:00

20 lines
199 B
ObjectPascal

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.