Edinburgh IMP77 Compiler - Version 8.4
    1 %external %integer %array xira(0:1) = 4, 5
				.section	".text"
		.Ltext0:
				.align 4
				.global EXTRT
				.proc	020
		EXTRT:
		.LFB185:
    2
    3 %own %integer %array oira(0:1) = 6, 7
    4
    5 %const %integer %array cira(0:1) = 8, 9
    6
    7 %externalroutine extrt
    8   %external %integer %array %spec xira(0:1)
    9   %own %integer %array oira(0:1) = 10,11
   10   %const %integer %array cira(0:1) = 12,13
   11   %integer %array ira(0:1) { cannot be initialised }
   12 %end
?IRA unused
?CIRA unused
?OIRA unused
?XIRA unused
   13
				jmp	%o7+8
				 nop
		.LFE185:
				.global CIRA
				.section	".rodata"
				.align 4
		CIRA:
				.long	8
				.long	9
				.global XIRA
				.section	".data"
				.align 4
		XIRA:
				.long	4
				.long	5
				.section	".text"
		.Letext0:
   14 %endoffile
   10 Statements compiled