%begin
! TO DO:
!   header_ldiag_p2 = ldiag link;   ! ldiag_p1+ldiag_p2 => start of chain
!   header_vdiag_p2 = vdiag link
!   header_spec_p2 = spec link;                     ! GLA relative
!   header_defn_p2 = defn link;                     ! N.B. FILE relative

! the _p2 fields above are all coming out wrong in pass3.i
! looks like I'm picking up the wrong recordformat for subrecords

%endofprogram