float **submatrix(a, oldrl, oldrh, oldcl, oldch, newrl, newcl)
float **a;
int oldrl, oldrh, oldcl, oldch, newrl, newcl;
{
  int i, j;
  float **m;
  oldch = oldch;
  m = (float **)malloc((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    -0x18(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x10(%rbp),%eax
sub    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,%eax
mov    %eax,%edi
shl    $0x3,%rdi
call   1040 <malloc@plt>
mov    %rax,-0x30(%rbp)
cmpq   $0x0,-0x30(%rbp)
jne    1179 <submatrix+0x59>
lea    0xe8e(%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     11f5 <submatrix+0xd5>
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    119f <submatrix+0x7f>
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
shl    $0x3,%rdi
call   1040 <malloc@plt>
mov    %rax,%rbx
test   %rax,%rax
jne    115f <submatrix+0x3f>
lea    0xea8(%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    11cc <submatrix+0xac>
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   0x0(%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* %12
store i32 %18, i32* %12
%19 = load i32, i32* %10
%20 = load i32, i32* %9
%21 = sub nsw i32 %19, %20
%22 = add nsw i32 %21, 1
%23 = zext i32 %22 to i64
%24 = mul i64 %23, 8
%25 = call i8* @malloc(i64 %24)
%26 = bitcast i8* %25 to float**
store float** %26, float*** %17
%27 = load float**, float*** %17
%28 = icmp ne float** %27, null
br i1 %28, label %31, label %29
29: ; preds = %7
%30 = 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 %31
31: ; preds = %29, %7
%32 = load i32, i32* %13
%33 = load float**, float*** %17
%34 = sext i32 %32 to i64
%35 = sub i64 0, %34
%36 = getelementptr inbounds float*, float** %33, i64 %35
store float** %36, float*** %17
%37 = load i32, i32* %9
store i32 %37, i32* %15
%38 = load i32, i32* %13
store i32 %38, i32* %16
br label %39
39: ; preds = %60, %31
%40 = load i32, i32* %15
%41 = load i32, i32* %10
%42 = icmp sle i32 %40, %41
br i1 %42, label %43, label %65
43: ; preds = %39
%44 = load float**, float*** %8
%45 = load i32, i32* %15
%46 = sext i32 %45 to i64
%47 = getelementptr inbounds float*, float** %44, i64 %46
%48 = load float*, float** %47
%49 = load i32, i32* %11
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds float, float* %48, i64 %50
%52 = load i32, i32* %14
%53 = sext i32 %52 to i64
%54 = sub i64 0, %53
%55 = getelementptr inbounds float, float* %51, i64 %54
%56 = load float**, float*** %17
%57 = load i32, i32* %16
%58 = sext i32 %57 to i64
%59 = getelementptr inbounds float*, float** %56, i64 %58
store float* %55, float** %59
br label %60
60: ; preds = %43
%61 = load i32, i32* %15
%62 = add nsw i32 %61, 1
store i32 %62, i32* %15
%63 = load i32, i32* %16
%64 = add nsw i32 %63, 1
store i32 %64, i32* %16
br label %39
65: ; preds = %39
%66 = load float**, float*** %17
ret float** %66
}

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