5 
The program unit,
pubvar_prog.p, which declares global as public
The module unit, pubvar_mod.p, which also declares global as
public
program pubvar_prog;
public var
global: integer;
procedure proc; external;
begin
global := 1;
writeln('From MAIN, before PROC: ', global); proc;
writeln('From MAIN, after PROC: ', global) end. { pubvar_prog }
module pubvar_mod;
public var
global : integer;
procedure proc;
begin
writeln('From PROC:',global); global := global + 1;
end; { proc }
The commands to compile and execute pubvar_prog.p and pubvar_mod.p
hostname% pc
pubvar_mod.p: Linking: hostname% a.out
From MAIN, before PROC: 1
From PROC : 1
From MAIN, after PROC: 2
Separate Compilation | 81 |