begin

routine BD(integer p, q)
end

recordformat Stackfm(integer Base, Disp)

! Unfortunately, another example that fails in a big program
! but works when we try to find a minimal example...

routine Show Data(record(Stackfm)name V, integer Left)
   BD(V_Base, V_Disp)
end

endofprogram