
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 }
Komentáře k této Příručce