Edinburgh IMP77 Compiler - Version 8.4
    1 %externalroutine fred(%integer i)
		.Ltext0:
				.globl	FRED
		FRED:
		.LFB189:
				pushl	%ebp
				movl	%esp, %ebp
				subl	$16, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
    2   %integer k
    3   k = i
				movl	8(%ebp), %eax
				movl	%eax, -4(%ebp)
    4   %if k=i %start
				movl	-4(%ebp), %eax
				cmpl	8(%ebp), %eax
    5   %finish
				nop
    6 %end
				nop
				leave
				ret
		.L2:
		.LFE189:
				.section	.text.__x86.get_pc_thunk.ax,"axG",@progbits,__x86.get_pc_thunk.ax,comdat
				.globl	__x86.get_pc_thunk.ax
				.hidden	__x86.get_pc_thunk.ax
		__x86.get_pc_thunk.ax:
		.LFB190:
				movl	(%esp), %eax
				ret
		.LFE190:
		.Letext0:
    7 %endoffile
    7 Statements compiled