Sun Microsystems SunSoft Pascal 4.0 User Manual page 96

4
72
Here is a program unit that declares a variable:
program program_unit3 (output);
var
x : integer;
procedure say_hello; external;
begin
for x := 1 to 5 do say_hello
end.
Here is a module unit that declares a variable with the same name:
module module_unit3;
var
x : integer;
procedure say_hello;
begin
writeln ('Hello, world for the', x, ' time.')
end;
Pascal 4.0 User's Guide