float **submatrix(a, oldrl, oldrh, oldcl, oldch, newrl, newcl)
float **a;
int oldrl, oldrh, oldcl, oldch, newrl, newcl;
{
  int i, j;
  float **m;
  m = (float **)calloc((unsigned)(oldrh - oldrl + 1), sizeof(float *));
  if (!m)
    nrerror("allocation failure in submatrix()");
  m -= newrl;
  for (i = oldrl, j = newrl; i <= oldrh; i++, j++)
    m[j] = a[i] + oldcl - newcl;
  return m;
}


x86 assembly (clang, -O0):
<submatrix>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    0x10(%rbp),%eax
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    %r8d,-0x18(%rbp)
mov    %r9d,-0x1c(%rbp)
mov    -0x10(%rbp),%eax
sub    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,%eax
mov    %eax,%edi
mov    $0x8,%esi
call   1040 <calloc@plt>
mov    %rax,-0x30(%rbp)
cmpq   $0x0,-0x30(%rbp)
jne    1174 <submatrix+0x54>
lea    0xe93(%rip),%rdi
mov    $0x0,%al
call   1030 <nrerror@plt>
mov    -0x1c(%rbp),%ecx
mov    -0x30(%rbp),%rax
movslq %ecx,%rdx
xor    %ecx,%ecx
sub    %rdx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0xc(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x1c(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x10(%rbp),%eax
jg     11f0 <submatrix+0xd0>
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rdx
movslq -0x14(%rbp),%rax
shl    $0x2,%rax
add    %rax,%rdx
movslq 0x10(%rbp),%rcx
xor    %eax,%eax
sub    %rcx,%rax
shl    $0x2,%rax
add    %rax,%rdx
mov    -0x30(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    119a <submatrix+0x7a>
mov    -0x30(%rbp),%rax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<submatrix>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %r9d,%r13d
mov    %ecx,%r12d
mov    %edx,%r14d
mov    %esi,%ebp
mov    %rdi,%r15
mov    %edx,%edi
sub    %esi,%edi
add    $0x1,%edi
mov    $0x8,%esi
call   1040 <calloc@plt>
mov    %rax,%rbx
test   %rax,%rax
jne    1160 <submatrix+0x40>
lea    0xea7(%rip),%rdi
xor    %eax,%eax
call   1030 <nrerror@plt>
movslq %r13d,%r11
lea    0x0(,%r11,8),%r8
mov    %rbx,%rax
sub    %r8,%rax
mov    %r14d,%r13d
sub    %ebp,%r13d
jl     1339 <submatrix+0x219>
movslq %r12d,%rcx
movslq 0x40(%rsp),%rdx
neg    %rdx
movslq %ebp,%r10
cmp    $0x3,%r13d
jb     1302 <submatrix+0x1e2>
add    $0x1,%r13
mov    %r13,%r9
and    $0xfffffffffffffffc,%r9
lea    -0x4(%r9),%rsi
mov    %rsi,%rbp
shr    $0x2,%rbp
add    $0x1,%rbp
mov    %ebp,%r12d
and    $0x3,%r12d
movq   %rcx,%xmm1
movq   %rdx,%xmm0
cmp    $0xc,%rsi
jae    11cd <submatrix+0xad>
xor    %edi,%edi
jmp    128c <submatrix+0x16c>
and    $0xfffffffffffffffc,%rbp
lea    (%r15,%r10,8),%rsi
add    $0x70,%rsi
xor    %edi,%edi
pshufd $0x44,%xmm1,%xmm3
psllq  $0x2,%xmm3
pshufd $0x44,%xmm0,%xmm2
psllq  $0x2,%xmm2
paddq  %xmm3,%xmm2
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movdqu -0x70(%rsi,%rdi,8),%xmm3
movdqu -0x60(%rsi,%rdi,8),%xmm4
paddq  %xmm2,%xmm3
paddq  %xmm2,%xmm4
movdqu %xmm3,(%rbx,%rdi,8)
movdqu %xmm4,0x10(%rbx,%rdi,8)
movdqu -0x50(%rsi,%rdi,8),%xmm3
movdqu -0x40(%rsi,%rdi,8),%xmm4
paddq  %xmm2,%xmm3
paddq  %xmm2,%xmm4
movdqu %xmm3,0x20(%rbx,%rdi,8)
movdqu %xmm4,0x30(%rbx,%rdi,8)
movdqu -0x30(%rsi,%rdi,8),%xmm3
movdqu -0x20(%rsi,%rdi,8),%xmm4
paddq  %xmm2,%xmm3
paddq  %xmm2,%xmm4
movdqu %xmm3,0x40(%rbx,%rdi,8)
movdqu %xmm4,0x50(%rbx,%rdi,8)
movdqu -0x10(%rsi,%rdi,8),%xmm3
movdqu (%rsi,%rdi,8),%xmm4
paddq  %xmm2,%xmm3
paddq  %xmm2,%xmm4
movdqu %xmm3,0x60(%rbx,%rdi,8)
movdqu %xmm4,0x70(%rbx,%rdi,8)
add    $0x10,%rdi
add    $0xfffffffffffffffc,%rbp
jne    1200 <submatrix+0xe0>
test   %r12,%r12
je     12f7 <submatrix+0x1d7>
lea    (%rbx,%rdi,8),%rsi
add    $0x10,%rsi
add    %r10,%rdi
lea    (%r15,%rdi,8),%rdi
add    $0x10,%rdi
shl    $0x5,%r12
xor    %ebp,%ebp
pshufd $0x44,%xmm1,%xmm1
psllq  $0x2,%xmm1
pshufd $0x44,%xmm0,%xmm0
psllq  $0x2,%xmm0
paddq  %xmm1,%xmm0
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movdqu -0x10(%rdi,%rbp,1),%xmm1
movdqu (%rdi,%rbp,1),%xmm2
paddq  %xmm0,%xmm1
paddq  %xmm0,%xmm2
movdqu %xmm1,-0x10(%rsi,%rbp,1)
movdqu %xmm2,(%rsi,%rbp,1)
add    $0x20,%rbp
cmp    %rbp,%r12
jne    12d0 <submatrix+0x1b0>
cmp    %r9,%r13
je     1339 <submatrix+0x219>
add    %r9,%r10
add    %r9,%r11
lea    (%r15,%r10,8),%rsi
sub    %r10d,%r14d
add    $0x1,%r14d
shl    $0x3,%r11
sub    %r8,%r11
add    %r11,%rbx
xor    %edi,%edi
shl    $0x2,%rcx
nopl   (%rax)
mov    (%rsi,%rdi,8),%rbp
add    %rcx,%rbp
lea    0x0(%rbp,%rdx,4),%rbp
mov    %rbp,(%rbx,%rdi,8)
add    $0x1,%rdi
cmp    %edi,%r14d
jne    1320 <submatrix+0x200>
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [34 x i8] c"allocation failure in submatrix()\00"
define float** @submatrix(float** %0, i32 %1, i32 %2, i32 %3, i32 %4, i32 %5, i32 %6) {
%8 = alloca float**
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
%17 = alloca float**
store float** %0, float*** %8
store i32 %1, i32* %9
store i32 %2, i32* %10
store i32 %3, i32* %11
store i32 %4, i32* %12
store i32 %5, i32* %13
store i32 %6, i32* %14
%18 = load i32, i32* %10
%19 = load i32, i32* %9
%20 = sub nsw i32 %18, %19
%21 = add nsw i32 %20, 1
%22 = zext i32 %21 to i64
%23 = call i8* @calloc(i64 %22, i64 8)
%24 = bitcast i8* %23 to float**
store float** %24, float*** %17
%25 = load float**, float*** %17
%26 = icmp ne float** %25, null
br i1 %26, label %29, label %27
27: ; preds = %7
%28 = call i32 (i8*, ...) bitcast (i32 (...)* @nrerror to i32 (i8*, ...)*)(i8* getelementptr inbounds ([34 x i8], [34 x i8]* @.str, i64 0, i64 0))
br label %29
29: ; preds = %27, %7
%30 = load i32, i32* %13
%31 = load float**, float*** %17
%32 = sext i32 %30 to i64
%33 = sub i64 0, %32
%34 = getelementptr inbounds float*, float** %31, i64 %33
store float** %34, float*** %17
%35 = load i32, i32* %9
store i32 %35, i32* %15
%36 = load i32, i32* %13
store i32 %36, i32* %16
br label %37
37: ; preds = %58, %29
%38 = load i32, i32* %15
%39 = load i32, i32* %10
%40 = icmp sle i32 %38, %39
br i1 %40, label %41, label %63
41: ; preds = %37
%42 = load float**, float*** %8
%43 = load i32, i32* %15
%44 = sext i32 %43 to i64
%45 = getelementptr inbounds float*, float** %42, i64 %44
%46 = load float*, float** %45
%47 = load i32, i32* %11
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds float, float* %46, i64 %48
%50 = load i32, i32* %14
%51 = sext i32 %50 to i64
%52 = sub i64 0, %51
%53 = getelementptr inbounds float, float* %49, i64 %52
%54 = load float**, float*** %17
%55 = load i32, i32* %16
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds float*, float** %54, i64 %56
store float* %53, float** %57
br label %58
58: ; preds = %41
%59 = load i32, i32* %15
%60 = add nsw i32 %59, 1
store i32 %60, i32* %15
%61 = load i32, i32* %16
%62 = add nsw i32 %61, 1
store i32 %62, i32* %16
br label %37
63: ; preds = %37
%64 = load float**, float*** %17
ret float** %64
}

LLVM IR (-O2):
@.str = [34 x i8] c"allocation failure in submatrix()\00"
define float** @submatrix(float** nocapture %0, i32 %1, i32 %2, i32 %3, i32 %4, i32 %5, i32 %6) {
%8 = sub i32 1, %1
%9 = add i32 %8, %2
%10 = zext i32 %9 to i64
%11 = tail call i8* @calloc(i64 %10, i64 8)
%12 = bitcast i8* %11 to float**
%13 = icmp eq i8* %11, null
br i1 %13, label %14, label %16
14: ; preds = %7
%15 = tail call i32 (i8*, ...) bitcast (i32 (...)* @nrerror to i32 (i8*, ...)*)(i8* getelementptr inbounds ([34 x i8], [34 x i8]* @.str, i64 0, i64 0))
br label %16
16: ; preds = %14, %7
%17 = sext i32 %5 to i64
%18 = sub nsw i64 0, %17
%19 = getelementptr inbounds float*, float** %12, i64 %18
%20 = icmp slt i32 %2, %1
br i1 %20, label %152, label %21
21: ; preds = %16
%22 = sext i32 %3 to i64
%23 = sext i32 %6 to i64
%24 = sub nsw i64 0, %23
%25 = sext i32 %1 to i64
%26 = add i32 %2, 1
%27 = sub i32 %2, %1
%28 = zext i32 %27 to i64
%29 = add nuw nsw i64 %28, 1
%30 = icmp ult i32 %27, 3
br i1 %30, label %137, label %31
31: ; preds = %21
%32 = and i64 %29, 8589934588
%33 = add nsw i64 %32, %25
%34 = add nsw i64 %32, %17
%35 = add nsw i64 %32, -4
%36 = lshr exact i64 %35, 2
%37 = add nuw nsw i64 %36, 1
%38 = and i64 %37, 3
%39 = icmp ult i64 %35, 12
br i1 %39, label %111, label %40
40: ; preds = %31
%41 = and i64 %37, 9223372036854775804
br label %42
42: ; preds = %42, %40
%43 = phi i64 [ 0, %40 ], [ %108, %42 ]
%44 = phi i64 [ 0, %40 ], [ %109, %42 ]
%45 = add i64 %43, %25
%46 = getelementptr inbounds float*, float** %0, i64 %45
%47 = bitcast float** %46 to <2 x float*>*
%48 = load <2 x float*>, <2 x float*>* %47
%49 = getelementptr inbounds float*, float** %46, i64 2
%50 = bitcast float** %49 to <2 x float*>*
%51 = load <2 x float*>, <2 x float*>* %50
%52 = getelementptr inbounds float, <2 x float*> %48, i64 %22
%53 = getelementptr inbounds float, <2 x float*> %51, i64 %22
%54 = getelementptr inbounds float, <2 x float*> %52, i64 %24
%55 = getelementptr inbounds float, <2 x float*> %53, i64 %24
%56 = getelementptr inbounds float*, float** %12, i64 %43
%57 = bitcast float** %56 to <2 x float*>*
store <2 x float*> %54, <2 x float*>* %57
%58 = getelementptr inbounds float*, float** %56, i64 2
%59 = bitcast float** %58 to <2 x float*>*
store <2 x float*> %55, <2 x float*>* %59
%60 = or i64 %43, 4
%61 = add i64 %60, %25
%62 = getelementptr inbounds float*, float** %0, i64 %61
%63 = bitcast float** %62 to <2 x float*>*
%64 = load <2 x float*>, <2 x float*>* %63
%65 = getelementptr inbounds float*, float** %62, i64 2
%66 = bitcast float** %65 to <2 x float*>*
%67 = load <2 x float*>, <2 x float*>* %66
%68 = getelementptr inbounds float, <2 x float*> %64, i64 %22
%69 = getelementptr inbounds float, <2 x float*> %67, i64 %22
%70 = getelementptr inbounds float, <2 x float*> %68, i64 %24
%71 = getelementptr inbounds float, <2 x float*> %69, i64 %24
%72 = getelementptr inbounds float*, float** %12, i64 %60
%73 = bitcast float** %72 to <2 x float*>*
store <2 x float*> %70, <2 x float*>* %73
%74 = getelementptr inbounds float*, float** %72, i64 2
%75 = bitcast float** %74 to <2 x float*>*
store <2 x float*> %71, <2 x float*>* %75
%76 = or i64 %43, 8
%77 = add i64 %76, %25
%78 = getelementptr inbounds float*, float** %0, i64 %77
%79 = bitcast float** %78 to <2 x float*>*
%80 = load <2 x float*>, <2 x float*>* %79
%81 = getelementptr inbounds float*, float** %78, i64 2
%82 = bitcast float** %81 to <2 x float*>*
%83 = load <2 x float*>, <2 x float*>* %82
%84 = getelementptr inbounds float, <2 x float*> %80, i64 %22
%85 = getelementptr inbounds float, <2 x float*> %83, i64 %22
%86 = getelementptr inbounds float, <2 x float*> %84, i64 %24
%87 = getelementptr inbounds float, <2 x float*> %85, i64 %24
%88 = getelementptr inbounds float*, float** %12, i64 %76
%89 = bitcast float** %88 to <2 x float*>*
store <2 x float*> %86, <2 x float*>* %89
%90 = getelementptr inbounds float*, float** %88, i64 2
%91 = bitcast float** %90 to <2 x float*>*
store <2 x float*> %87, <2 x float*>* %91
%92 = or i64 %43, 12
%93 = add i64 %92, %25
%94 = getelementptr inbounds float*, float** %0, i64 %93
%95 = bitcast float** %94 to <2 x float*>*
%96 = load <2 x float*>, <2 x float*>* %95
%97 = getelementptr inbounds float*, float** %94, i64 2
%98 = bitcast float** %97 to <2 x float*>*
%99 = load <2 x float*>, <2 x float*>* %98
%100 = getelementptr inbounds float, <2 x float*> %96, i64 %22
%101 = getelementptr inbounds float, <2 x float*> %99, i64 %22
%102 = getelementptr inbounds float, <2 x float*> %100, i64 %24
%103 = getelementptr inbounds float, <2 x float*> %101, i64 %24
%104 = getelementptr inbounds float*, float** %12, i64 %92
%105 = bitcast float** %104 to <2 x float*>*
store <2 x float*> %102, <2 x float*>* %105
%106 = getelementptr inbounds float*, float** %104, i64 2
%107 = bitcast float** %106 to <2 x float*>*
store <2 x float*> %103, <2 x float*>* %107
%108 = add nuw i64 %43, 16
%109 = add nuw i64 %44, 4
%110 = icmp eq i64 %109, %41
br i1 %110, label %111, label %42
111: ; preds = %42, %31
%112 = phi i64 [ 0, %31 ], [ %108, %42 ]
%113 = icmp eq i64 %38, 0
br i1 %113, label %135, label %114
114: ; preds = %111, %114
%115 = phi i64 [ %132, %114 ], [ %112, %111 ]
%116 = phi i64 [ %133, %114 ], [ 0, %111 ]
%117 = add i64 %115, %25
%118 = getelementptr inbounds float*, float** %0, i64 %117
%119 = bitcast float** %118 to <2 x float*>*
%120 = load <2 x float*>, <2 x float*>* %119
%121 = getelementptr inbounds float*, float** %118, i64 2
%122 = bitcast float** %121 to <2 x float*>*
%123 = load <2 x float*>, <2 x float*>* %122
%124 = getelementptr inbounds float, <2 x float*> %120, i64 %22
%125 = getelementptr inbounds float, <2 x float*> %123, i64 %22
%126 = getelementptr inbounds float, <2 x float*> %124, i64 %24
%127 = getelementptr inbounds float, <2 x float*> %125, i64 %24
%128 = getelementptr inbounds float*, float** %12, i64 %115
%129 = bitcast float** %128 to <2 x float*>*
store <2 x float*> %126, <2 x float*>* %129
%130 = getelementptr inbounds float*, float** %128, i64 2
%131 = bitcast float** %130 to <2 x float*>*
store <2 x float*> %127, <2 x float*>* %131
%132 = add nuw i64 %115, 4
%133 = add i64 %116, 1
%134 = icmp eq i64 %133, %38
br i1 %134, label %135, label %114
135: ; preds = %114, %111
%136 = icmp eq i64 %29, %32
br i1 %136, label %152, label %137
137: ; preds = %21, %135
%138 = phi i64 [ %25, %21 ], [ %33, %135 ]
%139 = phi i64 [ %17, %21 ], [ %34, %135 ]
br label %140
140: ; preds = %137, %140
%141 = phi i64 [ %148, %140 ], [ %138, %137 ]
%142 = phi i64 [ %149, %140 ], [ %139, %137 ]
%143 = getelementptr inbounds float*, float** %0, i64 %141
%144 = load float*, float** %143
%145 = getelementptr inbounds float, float* %144, i64 %22
%146 = getelementptr inbounds float, float* %145, i64 %24
%147 = getelementptr inbounds float*, float** %19, i64 %142
store float* %146, float** %147
%148 = add nsw i64 %141, 1
%149 = add nsw i64 %142, 1
%150 = trunc i64 %148 to i32
%151 = icmp eq i32 %26, %150
br i1 %151, label %152, label %140
152: ; preds = %140, %135, %16
ret float** %19
}