%begin

! trying to duplicate crash from pass3.i

%constinteger max ref = 100

%recordformat  reffm(%shortinteger  tag, link, flags, ca)
%recordformat  deffm(%record(deffm)%name  link, %shortinteger proc,ca)
%recordformat  procfm(%record(procfm)%name  link,
                      %record(reffm)%name   ref list,
                      %record(deffm)%name   def list,
                      %shortinteger  base,  ca,
                                     static frame, event mask,
                                     display reg, event start,
                                     event finish, ld base,
                                     ld size, vd base,
                                     vd size, Me)

%routine phase1
%record(reffm)%array  ref(1:max ref)
%record(procfm)%name  pp, qq
  ref(1)_tag = 42
%end

%endofprogram