HP SunSoft Pascal 4.0 - Manual (Page 183)

The C++–Pascal Interface 159
7
Function Return Values
Function return values match types in the same manner as with parameters.
They pass in much the same way.
The Pascal main program,
SimValMain.p
program SimValMain(output);
var
t: boolean := true;
f: boolean := false;
c: char := 'z';
si:integer16:= 9;
i: integer := 9;
sr:shortreal:= 9.9;
r: real := 9.9;
args: integer;
procedure SimVal(
t, f: boolean;
c: char;
si:integer16;
i: integer;
sr:shortreal;
r: real;
var Reply: integer); external C;
begin
SimVal(t, f, c, si, i, sr, r, args);
writeln(' args = ', args :7 oct);
end.
The commands to compile and
execute
SimVal.cc and
SimValMain.p
hostname% CC -c SimVal.cc
hostname% pc SimVal.o SimValMain.p
hostname% a.out
args = 111111