HP SunSoft Pascal 4.0 - Manual (Page 193)

The FORTRAN–Pascal Interface 169
8
See the following example:
The Pascal procedure,
SimVar.p
procedure simvar_(var t, f: boolean; var c: char;
var i: integer; var r: real;
var si: integer16; var sr: shortreal);
begin
t := true;
f := false;
c := 'z';
i := 9;
r := 9.9;
si := 9;
sr := 9.9
end; { simvar_ }
The FORTRAN main program,
SimVarmain.f
logical*1 t, f
character c
integer*4 i
double precision d
integer*2 si
real sr
call SimVar ( t, f, c, i, d, si, sr )
write(*, "(L2,L2,A2,I2,F4.1,I2,F4.1)")
& t, f, c, i, d, si,sr
stop
end
The commands to compile and
execute
SimVar.p and
SimVarmain.f
hostname% pc -c SimVar.p
hostname% f77 SimVar.o SimVarmain.f -lpfc -lpc
SimVarmain.f:
MAIN:
hostname% a.out
T F z 9 9.9 9 9.9