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