Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
				NO_APP
		.Ltext0:
				.align	2
				.globl	main
		main:
		.LFB185:
		.LVL0:
		 		link.w %fp,#0
    2
		 		move.l 12(%fp),-(%sp)
		 		move.l 8(%fp),-(%sp)
		 		jsr _imp_initialise
		.LVL1:
		.LBB4:
		.LBB5:
		 		clr.l -(%sp)
		 		jsr exit
		.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