8
The FORTRAN main program, VarRecmain.f. The variable ALIGN is integer*2, and is needed to match the Pascal variant record layout.
The commands to compile and execute VarRec.p and VarRecmain.f without
structure /a_var/ character ch1, ch2
end structure structure /b_var/
character flag end structure structure /c_var/
integer*2 ALIGN end structure structure /var_part/
union map
record /a_var/ a_rec end map
map
record /b_var/ b_rec end map
map
record /c_var/ c_rec end map
end union
end structure structure /vrnt/
character tag
record /var_part/ var_rec end structure
record /vrnt/ VRec
VRec.var_rec.a_rec.ch1 = 'a'
VRec.var_rec.a_rec.ch2 = 'b' call varrec ( VRec )
write ( *, * ) VRec.var_rec.a_rec.ch2 stop
end
hostname% pc
hostname% f77 VarRec.o VarRecmain.f VarRecmain.f:
MAIN: hostname% a.out b
178 | Pascal 4.0 User’s Guide |