![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395200x1.png)
8
The Pascal procedure,
StruChr.p
A Pascal record of an integer and a character string matches a FORTRAN structure of the same. Consider these examples:
type
lenstr = record
nbytes: integer;
chrstr: array [0..25] of char
end;
procedure struchr_(var v: lenstr);
begin
v.chrstr := 'oyvay'; v.nbytes := 5
end; { struchr_ }
The FORTRAN main program,
StruChrmain.f
structure /VarLenStr/ integer nbytes character a*25
end structure
record /VarLenStr/ vls character s25*25 vls.nbytes = 0
Call StruChr( vls )
s25(1:5) = vls.a(1:vls.nbytes) write ( *, 1 ) s25
1format("s25='", A, "'" ) stop
end
The commands to compile and execute Struchr.p and
StruChrmain.f
hostname% pc
hostname% f77 StruChr.o StruChrmain.f
MAIN: hostname% a.out s25='oyvay'
176 | Pascal 4.0 User’s Guide |