Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
		.Ltext0:
				.align	1
				.global	main
				.thumb
				.thumb_func
		main:
		.LFB185:
				@ Volatile: function does not return.
				@ args = 0, pretend = 0, frame = 0
				@ frame_needed = 0, uses_anonymous_args = 0
		.LVL0:
				push	{r3, lr}
    2
				bl	_imp_initialise(PLT)
		.LVL1:
		.LBB4:
		.LBB5:
				movs	r0, #0
				bl	exit(PLT)
		.LVL2:
		.LBE5:
		.LBE4:
		.LFE185:
		.Letext0:
    3 ! trying to duplicate crash from pass3.i
    4
    5 %constinteger max ref = 100
    6
    7 %recordformat  reffm(%shortinteger  tag, link, flags, ca)
    8 %recordformat  deffm(%record(deffm)%name  link, %shortinteger proc,ca)
    9 %recordformat  procfm(%record(procfm)%name  link,
   10                       %record(reffm)%name   ref list,
   11                       %record(deffm)%name   def list,
   12                       %shortinteger  base,  ca,
   13                                      static frame, event mask,
   14                                      display reg, event start,
   15                                      event finish, ld base,
   16                                      ld size, vd base,
   17                                      vd size, Me)
   18
   19 %routine phase1
   20 %record(reffm)%array  ref(1:max ref)
   21 %record(procfm)%name  pp, qq
   22   ref(1)_tag = 42
   23 %end
?QQ unused
?PP unused
   24
   25 %endofprogram
?PHASE1 unused
   11 Statements compiled