Sun Microsystems SunSoft Pascal 4.0 User Manual page 223

The Pascal main program,
SimValmain.p
The commands to compile and
execute SimVal.f and
SimValmain.p
program SimVal(output);
var
t: boolean := true;
f: boolean := false;
c: char := 'z';
i: integer := 9;
r: real := 9.9;
s: integer16 := 9;
args: integer;
procedure simval(t, f: boolean; c: char; i: integer;
r: real; s: integer16; var reply: integer);
external fortran;
begin
simval(t, f, c, i, r, s, args);
writeln('args=', args: 6 oct, ' (If nth digit=1, arg n OK.)')
end. { SimVal }
hostname% f77 -c SimVal.f
SimVal.f:
simval:
hostname% pc SimVal.o SimValmain.p -lpfc -lF77
hostname% a.out
args=111111 (If nth digit=1, arg n OK.)
The FORTRAN–Pascal Interface
8
199