Edinburgh IMP77 Compiler - Version 8.4
    1 %external %integer %array xira(0:1) = 4, 5
		.Ltext0:
				.globl	XIRA
				.data
				.align 4
		XIRA:
				.long	4
				.long	5
				.globl	XIRA_dv
				.section	.data.rel.local,"aw",@progbits
				.align 32
		XIRA_dv:
				.long	XIRA
				.long	4
				.zero	60
				.data
				.align 4
		OIRA:
				.long	6
				.long	7
				.globl	OIRA_dv
				.section	.data.rel.local
				.align 32
		OIRA_dv:
				.long	OIRA
				.long	4
				.zero	60
				.globl	CIRA
				.section	.rodata
				.align 4
		CIRA:
				.long	8
				.long	9
				.globl	CIRA_dv
				.section	.data.rel.local
				.align 32
		CIRA_dv:
				.long	CIRA
				.long	4
				.zero	60
				.globl	EXTRT
		EXTRT:
		.LFB189:
    2
    3 %own %integer %array oira(0:1) = 6, 7
    4
    5 %const %integer %array cira(0:1) = 8, 9
    6
    7 %externalroutine extrt
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%ebx
				subl	$304, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%gs:20, %eax
				movl	%eax, -12(%ebp)
				xorl	%eax, %eax
    8   %external %integer %array %spec xira(0:1)
				leal	-284(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	XIRA@GOTOFF(%ebx), %eax
				movl	%eax, -284(%ebp)
				movl	$4, -280(%ebp)
    9   %own %integer %array oira(0:1) = 10,11
				leal	-216(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	OIRA.6028@GOTOFF(%ebx), %eax
				movl	%eax, -216(%ebp)
				movl	$4, -212(%ebp)
   10   %const %integer %array cira(0:1) = 12,13
				movl	$12, -300(%ebp)
				movl	$13, -296(%ebp)
				leal	-148(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-300(%ebp), %eax
				movl	%eax, -148(%ebp)
				movl	$4, -144(%ebp)
   11   %integer %array ira(0:1) { cannot be initialised }
				leal	-80(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-292(%ebp), %eax
				movl	%eax, -80(%ebp)
				movl	$4, -76(%ebp)
   12 %end
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L3
				call	__stack_chk_fail_local
		.L3:
				addl	$304, %esp
				popl	%ebx
				popl	%edi
				popl	%ebp
				ret
		.LFE189:
				.data
				.align 4
		OIRA.6028:
				.long	10
				.long	11
				.section	.text.__x86.get_pc_thunk.bx,"axG",@progbits,__x86.get_pc_thunk.bx,comdat
				.globl	__x86.get_pc_thunk.bx
				.hidden	__x86.get_pc_thunk.bx
		__x86.get_pc_thunk.bx:
		.LFB190:
				movl	(%esp), %ebx
				ret
		.LFE190:
		.Letext0:
?IRA unused
?CIRA unused
?OIRA unused
?XIRA unused
   13
   14 %endoffile
   10 Statements compiled