Function return values – HP SunSoft Pascal 4.0 User Manual

Page 154

Text mode
Original mode

130

Pascal 4.0 User’s Guide

Function Return Values

Function return values match types in the same manner as with parameters,
and they pass in much the same way. See “Variable Parameters” on page 94.
The following example shows how to pass simple types.

The Pascal main program,

SimValMain.p

program SimVal(output);

var

t: boolean

:= true;

f: boolean

:= false;

c: char

:= 'z';

si: integer16

:= 9;

i: integer

:= 9;

sr: shortreal

:= 9.9;

r: double

:= 9.9;

args: integer;

procedure SimVal(

t, f: boolean;

c: char;

si: integer16;

i: integer;

sr: shortreal;

r: double;

var Reply: integer);

external c;

begin

SimVal(t, f, c, si, i, sr, r, args);

writeln(' args = ', args :6 oct);

end. { SimVal }

The commands to compile and
execute

SimVal.c

and

SimValMain.p

hostname% cc -c SimVal.c

hostname% pc SimVal.o SimValMain.p

hostname% a.out

args=111111