Variant records – HP SunSoft Pascal 4.0 User Manual
Page 201
Advertising
The FORTRAN–Pascal Interface
177
8
Variant Records
FORTRAN equivalents of variant records can sometimes be constructed,
although there is some variation with architecture, and sometimes you need to
adjust the alignment.
The Pascal procedure,
VarRec.p
type vr = record
case tag: char of
'a': ( ch1, ch2: char ) ;
'b': ( flag: boolean ) ;
'K': ( ALIGN: integer ) ;
end ;
procedure varrec_ ( var Rec: vr ) ;
begin
if ( Rec.ch1 = 'a' )
then Rec.ch2 := 'Z'
end; { VarRec.p }
Advertising