double **submatrix(a, oldrl, oldrh, oldcl, oldch, newrl, newcl)
double **a;
int oldrl, oldrh, oldcl, oldch, newrl, newcl;
{
  int i, j;
  double **m;
  m = (double **)malloc((unsigned)(oldrh - oldrl + 1) * sizeof(double *));
  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
shl    $0x3,%rdi
call   1040 <malloc@plt>
mov    %rax,-0x30(%rbp)
cmpq   $0x0,-0x30(%rbp)
jne    1173 <submatrix+0x53>
lea    0xe94(%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     11ef <submatrix+0xcf>
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rdx
movslq -0x14(%rbp),%rax
shl    $0x3,%rax
add    %rax,%rdx
movslq 0x10(%rbp),%rcx
xor    %eax,%eax
sub    %rcx,%rax
shl    $0x3,%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    1199 <submatrix+0x79>
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  $0x3,%xmm3
pshufd $0x44,%xmm0,%xmm2
psllq  $0x3,%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  $0x3,%xmm1
pshufd $0x44,%xmm0,%xmm0
psllq  $0x3,%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    $0x3,%rcx
nopl   (%rax)
mov    (%rsi,%rdi,8),%rbp
add    %rcx,%rbp
lea    0x0(%rbp,%rdx,8),%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 double** @submatrix(double** %0, i32 %1, i32 %2, i32 %3, i32 %4, i32 %5, i32 %6) {
%8 = alloca double**
%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 double**
store double** %0, double*** %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 = mul i64 %22, 8
%24 = call i8* @malloc(i64 %23)
%25 = bitcast i8* %24 to double**
store double** %25, double*** %17
%26 = load double**, double*** %17
%27 = icmp ne double** %26, null
br i1 %27, label %30, label %28
28: ; preds = %7
%29 = 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 %30
30: ; preds = %28, %7
%31 = load i32, i32* %13
%32 = load double**, double*** %17
%33 = sext i32 %31 to i64
%34 = sub i64 0, %33
%35 = getelementptr inbounds double*, double** %32, i64 %34
store double** %35, double*** %17
%36 = load i32, i32* %9
store i32 %36, i32* %15
%37 = load i32, i32* %13
store i32 %37, i32* %16
br label %38
38: ; preds = %59, %30
%39 = load i32, i32* %15
%40 = load i32, i32* %10
%41 = icmp sle i32 %39, %40
br i1 %41, label %42, label %64
42: ; preds = %38
%43 = load double**, double*** %8
%44 = load i32, i32* %15
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds double*, double** %43, i64 %45
%47 = load double*, double** %46
%48 = load i32, i32* %11
%49 = sext i32 %48 to i64
%50 = getelementptr inbounds double, double* %47, i64 %49
%51 = load i32, i32* %14
%52 = sext i32 %51 to i64
%53 = sub i64 0, %52
%54 = getelementptr inbounds double, double* %50, i64 %53
%55 = load double**, double*** %17
%56 = load i32, i32* %16
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds double*, double** %55, i64 %57
store double* %54, double** %58
br label %59
59: ; preds = %42
%60 = load i32, i32* %15
%61 = add nsw i32 %60, 1
store i32 %61, i32* %15
%62 = load i32, i32* %16
%63 = add nsw i32 %62, 1
store i32 %63, i32* %16
br label %38
64: ; preds = %38
%65 = load double**, double*** %17
ret double** %65
}

LLVM IR (-O2):
@.str = [34 x i8] c"allocation failure in submatrix()\00"
define double** @submatrix(double** 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 double**
%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 double*, double** %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 double*, double** %0, i64 %46
%48 = bitcast double** %47 to <2 x double*>*
%49 = load <2 x double*>, <2 x double*>* %48
%50 = getelementptr inbounds double*, double** %47, i64 2
%51 = bitcast double** %50 to <2 x double*>*
%52 = load <2 x double*>, <2 x double*>* %51
%53 = getelementptr inbounds double, <2 x double*> %49, i64 %23
%54 = getelementptr inbounds double, <2 x double*> %52, i64 %23
%55 = getelementptr inbounds double, <2 x double*> %53, i64 %25
%56 = getelementptr inbounds double, <2 x double*> %54, i64 %25
%57 = getelementptr inbounds double*, double** %13, i64 %44
%58 = bitcast double** %57 to <2 x double*>*
store <2 x double*> %55, <2 x double*>* %58
%59 = getelementptr inbounds double*, double** %57, i64 2
%60 = bitcast double** %59 to <2 x double*>*
store <2 x double*> %56, <2 x double*>* %60
%61 = or i64 %44, 4
%62 = add i64 %61, %26
%63 = getelementptr inbounds double*, double** %0, i64 %62
%64 = bitcast double** %63 to <2 x double*>*
%65 = load <2 x double*>, <2 x double*>* %64
%66 = getelementptr inbounds double*, double** %63, i64 2
%67 = bitcast double** %66 to <2 x double*>*
%68 = load <2 x double*>, <2 x double*>* %67
%69 = getelementptr inbounds double, <2 x double*> %65, i64 %23
%70 = getelementptr inbounds double, <2 x double*> %68, i64 %23
%71 = getelementptr inbounds double, <2 x double*> %69, i64 %25
%72 = getelementptr inbounds double, <2 x double*> %70, i64 %25
%73 = getelementptr inbounds double*, double** %13, i64 %61
%74 = bitcast double** %73 to <2 x double*>*
store <2 x double*> %71, <2 x double*>* %74
%75 = getelementptr inbounds double*, double** %73, i64 2
%76 = bitcast double** %75 to <2 x double*>*
store <2 x double*> %72, <2 x double*>* %76
%77 = or i64 %44, 8
%78 = add i64 %77, %26
%79 = getelementptr inbounds double*, double** %0, i64 %78
%80 = bitcast double** %79 to <2 x double*>*
%81 = load <2 x double*>, <2 x double*>* %80
%82 = getelementptr inbounds double*, double** %79, i64 2
%83 = bitcast double** %82 to <2 x double*>*
%84 = load <2 x double*>, <2 x double*>* %83
%85 = getelementptr inbounds double, <2 x double*> %81, i64 %23
%86 = getelementptr inbounds double, <2 x double*> %84, i64 %23
%87 = getelementptr inbounds double, <2 x double*> %85, i64 %25
%88 = getelementptr inbounds double, <2 x double*> %86, i64 %25
%89 = getelementptr inbounds double*, double** %13, i64 %77
%90 = bitcast double** %89 to <2 x double*>*
store <2 x double*> %87, <2 x double*>* %90
%91 = getelementptr inbounds double*, double** %89, i64 2
%92 = bitcast double** %91 to <2 x double*>*
store <2 x double*> %88, <2 x double*>* %92
%93 = or i64 %44, 12
%94 = add i64 %93, %26
%95 = getelementptr inbounds double*, double** %0, i64 %94
%96 = bitcast double** %95 to <2 x double*>*
%97 = load <2 x double*>, <2 x double*>* %96
%98 = getelementptr inbounds double*, double** %95, i64 2
%99 = bitcast double** %98 to <2 x double*>*
%100 = load <2 x double*>, <2 x double*>* %99
%101 = getelementptr inbounds double, <2 x double*> %97, i64 %23
%102 = getelementptr inbounds double, <2 x double*> %100, i64 %23
%103 = getelementptr inbounds double, <2 x double*> %101, i64 %25
%104 = getelementptr inbounds double, <2 x double*> %102, i64 %25
%105 = getelementptr inbounds double*, double** %13, i64 %93
%106 = bitcast double** %105 to <2 x double*>*
store <2 x double*> %103, <2 x double*>* %106
%107 = getelementptr inbounds double*, double** %105, i64 2
%108 = bitcast double** %107 to <2 x double*>*
store <2 x double*> %104, <2 x double*>* %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 double*, double** %0, i64 %118
%120 = bitcast double** %119 to <2 x double*>*
%121 = load <2 x double*>, <2 x double*>* %120
%122 = getelementptr inbounds double*, double** %119, i64 2
%123 = bitcast double** %122 to <2 x double*>*
%124 = load <2 x double*>, <2 x double*>* %123
%125 = getelementptr inbounds double, <2 x double*> %121, i64 %23
%126 = getelementptr inbounds double, <2 x double*> %124, i64 %23
%127 = getelementptr inbounds double, <2 x double*> %125, i64 %25
%128 = getelementptr inbounds double, <2 x double*> %126, i64 %25
%129 = getelementptr inbounds double*, double** %13, i64 %116
%130 = bitcast double** %129 to <2 x double*>*
store <2 x double*> %127, <2 x double*>* %130
%131 = getelementptr inbounds double*, double** %129, i64 2
%132 = bitcast double** %131 to <2 x double*>*
store <2 x double*> %128, <2 x double*>* %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 double*, double** %0, i64 %142
%145 = load double*, double** %144
%146 = getelementptr inbounds double, double* %145, i64 %23
%147 = getelementptr inbounds double, double* %146, i64 %25
%148 = getelementptr inbounds double*, double** %20, i64 %143
store double* %147, double** %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 double** %20
}