HP SunSoft Pascal 4.0 - Manual (Page 211)

The FORTRAN–Pascal Interface 187
8
Strings of Characters
The alfa and string types pass simply; varying strings are a little tricky. All
pass by reference.
The Pascal main program,
SimVarmain.p
program SimVarmain(output);
var
t, f: boolean;
c: char;
i: integer;
r: real;
si: integer16;
sr: shortreal;
procedure simvar(var t, f: boolean; var c: char;
var i: integer; var r: real;
var si: integer16; var sr: shortreal);
external fortran;
begin
simvar(t, f, c, i, r, si, sr);
writeln(t, f: 6, c: 2, i: 2, r: 4: 1, si: 2, sr: 4: 1)
end. { SimVarmain }
The commands to compile and
execute
SimVar.p and
SimVarmain.p
hostname% f77 -c SimVar.f
SimVar.f:
simvar:
hostname% pc SimVar.o SimVarmain.p -lpfc -lF77
hostname% a.out
true false z 9 9.9 9 9.9