HP SunSoft Pascal 4.0 - Manual (Page 181)

The C++–Pascal Interface 157
7
Arguments Passed by Value
Pascal arguments can also be passed by value. Here is how they work with
C++.
The Pascal main program,
SimRefMain.p
program SimRefMain (output);
var
t, f: boolean;
c: char;
i: integer;
s: integer16;
r: shortreal;
d: real;
procedure SimRef (
var t, f: boolean;
var c: char;
var i: integer;
var s: integer16;
var r: shortreal;
var d: real
); external C;
begin
SimRef (t, f, c, i, s, r, d);
writeln (t, f: 6, c: 2, i: 2, s: 2, r: 4: 1, d: 4: 1);
end.
The commands to compile and
execute
SimRef.cc and
SimRefMain.p
hostname% CC -c SimRef.cc
hostname% pc SimRef.o SimRefMain.p
hostname% a.out
true false z 9 9 9.9 9.9