HP SunSoft Pascal 4.0 - Manual (Page 185)

The C++–Pascal Interface 161
7
Global Variables in C++ and Pascal
If the types are compatible, a global variable can be shared between C++ and
Pascal. See this example:
The Pascal procedure,
GloVar.p
var
Year: integer;
procedure GloVar;
begin
Year := 1995;
end;
The C++ main program,
GloVarMain.cc
#include <stdio.h>
extern "C" void GloVar ();
int Year;
int main(void)
{
Year = 2042;
GloVar ();
printf (" %d \n", Year);
}
The commands to compile and
execute
GloVar.p and
GloVarMain.cc
hostname% pc -c GloVar.p
hostname% CC GloVar.o GloVarMain.cc -lpc
hostname% a.out
1995