![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395193x1.png)
8
See the following example:
The Pascal procedure,
SimVar.p
The FORTRAN main program,
SimVarmain.f
The commands to compile and execute SimVar.p and
SimVarmain.f
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_ }
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
hostname% pc
hostname% f77 SimVar.o SimVarmain.f
MAIN: hostname% a.out
T F z 9 9.9 9 9.9
The | 169 |