8

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

199