Edinburgh IMP77 Compiler - Version 8.4
    1 %external %integer %array xira(0:1) = 4, 5
				.machine ppc
				.section	".text"
		.Ltext0:
				.align 2
				.globl EXTRT
		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
				stwu 1,-16(1)
    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
				addi 1,1,16
				blr
		.LFE185:
				.globl CIRA
				.globl XIRA
				.section	.sdata,"aw",@progbits
				.align 2
		CIRA:
				.long	8
				.long	9
		XIRA:
				.long	4
				.long	5
				.section	".text"
		.Letext0:
   14 %endoffile
   10 Statements compiled