void o_covsrt(covar, ma, lista, mfit) double **covar;
int ma, lista[], mfit;
{
  int i, j;
  double swap;
  for (j = 1; j < ma; j++)
    for (i = j + 1; i <= ma; i++)
      covar[i][j] = 0.0;
  for (i = 1; i < mfit; i++)
    for (j = i + 1; j <= mfit; j++) {
      if (lista[j] > lista[i])
        covar[lista[j]][lista[i]] = covar[i][j];
      else
        covar[lista[i]][lista[j]] = covar[i][j];
    }
  swap = covar[1][1];
  for (j = 1; j <= ma; j++) {
    covar[1][j] = covar[j][j];
    covar[j][j] = 0.0;
  }
  covar[lista[1]][lista[1]] = swap;
  for (j = 2; j <= mfit; j++)
    covar[lista[j]][lista[j]] = covar[1][j];
  for (j = 2; j <= ma; j++)
    for (i = 1; i <= j - 1; i++)
      covar[i][j] = covar[j][i];
}


x86 assembly (clang, -O0):
<o_covsrt>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movl   $0x1,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1173 <o_covsrt+0x73>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     1160 <o_covsrt+0x60>
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    112e <o_covsrt+0x2e>
jmp    1165 <o_covsrt+0x65>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1119 <o_covsrt+0x19>
movl   $0x1,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1256 <o_covsrt+0x156>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     1243 <o_covsrt+0x143>
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    -0x18(%rbp),%rcx
movslq -0x20(%rbp),%rdx
cmp    (%rcx,%rdx,4),%eax
jle    11f6 <o_covsrt+0xf6>
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
movslq -0x24(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x18(%rbp),%rcx
movslq -0x20(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    1230 <o_covsrt+0x130>
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
movslq -0x20(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x18(%rbp),%rcx
movslq -0x24(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    1235 <o_covsrt+0x135>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    118f <o_covsrt+0x8f>
jmp    1248 <o_covsrt+0x148>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    117a <o_covsrt+0x7a>
mov    -0x8(%rbp),%rax
mov    0x8(%rax),%rax
movsd  0x8(%rax),%xmm0
movsd  %xmm0,-0x30(%rbp)
movl   $0x1,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     12c7 <o_covsrt+0x1c7>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    0x8(%rax),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    126f <o_covsrt+0x16f>
movsd  -0x30(%rbp),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
movslq 0x4(%rcx),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x18(%rbp),%rcx
movslq 0x4(%rcx),%rcx
movsd  %xmm0,(%rax,%rcx,8)
movl   $0x2,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     1340 <o_covsrt+0x240>
mov    -0x8(%rbp),%rax
mov    0x8(%rax),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
movslq -0x24(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x18(%rbp),%rcx
movslq -0x24(%rbp),%rdx
movslq (%rcx,%rdx,4),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    12f0 <o_covsrt+0x1f0>
movl   $0x2,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     13b6 <o_covsrt+0x2b6>
movl   $0x1,-0x20(%rbp)
mov    -0x20(%rbp),%eax
mov    -0x24(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     13a3 <o_covsrt+0x2a3>
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    135a <o_covsrt+0x25a>
jmp    13a8 <o_covsrt+0x2a8>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1347 <o_covsrt+0x247>
pop    %rbp
ret

x86 assembly (clang, -O2):
<o_covsrt>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
cmp    $0x2,%esi
jl     11d5 <o_covsrt+0xd5>
lea    0x1(%rsi),%r8d
mov    %esi,%r9d
add    $0xffffffffffffffff,%r9
cmp    $0x2,%esi
jne    1131 <o_covsrt+0x31>
mov    $0x2,%r15d
mov    $0x1,%r10d
jmp    11ac <o_covsrt+0xac>
mov    %r9,%r11
and    $0xfffffffffffffffe,%r11
mov    $0x2,%r15d
mov    $0x1,%r10d
xor    %r14d,%r14d
mov    %r8,%r12
mov    %rdi,%r13
nopl   (%rax)
mov    %r10,%rbx
mov    $0x2,%eax
nopl   0x0(%rax,%rax,1)
mov    0x0(%r13,%rax,8),%rbp
movq   $0x0,0x0(%rbp,%rbx,8)
add    $0x1,%rax
cmp    %rax,%r12
jne    1160 <o_covsrt+0x60>
lea    0x2(%rbx),%r10
mov    $0x3,%eax
mov    0x0(%r13,%rax,8),%rbp
movq   $0x0,0x8(%rbp,%rbx,8)
add    $0x1,%rax
cmp    %rax,%r12
jne    1180 <o_covsrt+0x80>
add    $0x2,%r15
add    $0x2,%r14
add    $0x10,%r13
add    $0xfffffffffffffffe,%r12
cmp    %r11,%r14
jne    1150 <o_covsrt+0x50>
test   $0x1,%r9b
je     11d5 <o_covsrt+0xd5>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    (%rdi,%r15,8),%rax
movq   $0x0,(%rax,%r10,8)
add    $0x1,%r15
cmp    %r15,%r8
jne    11c0 <o_covsrt+0xc0>
cmp    $0x2,%ecx
jl     1257 <o_covsrt+0x157>
lea    0x1(%rcx),%r10d
mov    %ecx,%r8d
mov    $0x1,%r11d
xor    %r9d,%r9d
mov    %rdx,%r14
jmp    1201 <o_covsrt+0x101>
nop
add    $0x1,%r9
add    $0x4,%r14
add    $0xffffffffffffffff,%r10
cmp    %r8,%r11
je     1257 <o_covsrt+0x157>
movslq (%rdx,%r11,4),%r12
lea    0x0(,%r9,8),%r15
add    (%rdi,%r11,8),%r15
add    $0x1,%r11
mov    $0x2,%eax
jmp    1240 <o_covsrt+0x140>
nopl   0x0(%rax)
shl    $0x3,%rbx
add    (%rdi,%r12,8),%rbx
mov    %rbx,%r13
movsd  (%r15,%rax,8),%xmm0
movsd  %xmm0,0x0(%r13)
add    $0x1,%rax
cmp    %rax,%r10
je     11f0 <o_covsrt+0xf0>
movslq (%r14,%rax,4),%rbx
cmp    %r12d,%ebx
jle    1220 <o_covsrt+0x120>
lea    0x0(,%r12,8),%r13
add    (%rdi,%rbx,8),%r13
jmp    122b <o_covsrt+0x12b>
mov    0x8(%rdi),%rax
movsd  0x8(%rax),%xmm0
test   %esi,%esi
jle    1302 <o_covsrt+0x202>
lea    0x1(%rsi),%r8d
movq   $0x0,0x8(%rax)
cmp    $0x2,%r8d
je     1302 <o_covsrt+0x202>
mov    $0x2,%ebx
cmp    $0x3,%r8d
je     12e4 <o_covsrt+0x1e4>
lea    -0x2(%r8),%r9
and    $0xfffffffffffffffe,%r9
neg    %r9
mov    $0x2,%ebx
nopl   0x0(%rax)
mov    (%rdi,%rbx,8),%rbp
movsd  0x0(%rbp,%rbx,8),%xmm1
movsd  %xmm1,(%rax,%rbx,8)
movq   $0x0,0x0(%rbp,%rbx,8)
mov    0x8(%rdi,%rbx,8),%rbp
movsd  0x8(%rbp,%rbx,8),%xmm1
movsd  %xmm1,0x8(%rax,%rbx,8)
movq   $0x0,0x8(%rbp,%rbx,8)
lea    (%r9,%rbx,1),%rbp
add    $0x2,%rbp
add    $0x2,%rbx
cmp    $0x2,%rbp
jne    12a0 <o_covsrt+0x1a0>
test   $0x1,%r8b
je     1302 <o_covsrt+0x202>
mov    (%rdi,%rbx,8),%rbp
movsd  0x0(%rbp,%rbx,8),%xmm1
movsd  %xmm1,(%rax,%rbx,8)
movq   $0x0,0x0(%rbp,%rbx,8)
movslq 0x4(%rdx),%rbp
mov    (%rdi,%rbp,8),%rbx
movsd  %xmm0,(%rbx,%rbp,8)
cmp    $0x2,%ecx
jl     13db <o_covsrt+0x2db>
mov    %ecx,%ebp
lea    -0x1(%rbp),%r9
add    $0xfffffffffffffffe,%rbp
mov    %r9d,%r8d
and    $0x3,%r8d
mov    $0x2,%ebx
cmp    $0x3,%rbp
jb     13a3 <o_covsrt+0x2a3>
and    $0xfffffffffffffffc,%r9
neg    %r9
mov    $0x2,%ebx
movsd  (%rax,%rbx,8),%xmm0
movslq (%rdx,%rbx,4),%rbp
mov    (%rdi,%rbp,8),%rcx
movsd  %xmm0,(%rcx,%rbp,8)
movsd  0x8(%rax,%rbx,8),%xmm0
movslq 0x4(%rdx,%rbx,4),%rcx
mov    (%rdi,%rcx,8),%rbp
movsd  %xmm0,0x0(%rbp,%rcx,8)
movsd  0x10(%rax,%rbx,8),%xmm0
movslq 0x8(%rdx,%rbx,4),%rcx
mov    (%rdi,%rcx,8),%rbp
movsd  %xmm0,0x0(%rbp,%rcx,8)
movsd  0x18(%rax,%rbx,8),%xmm0
movslq 0xc(%rdx,%rbx,4),%rcx
mov    (%rdi,%rcx,8),%rbp
movsd  %xmm0,0x0(%rbp,%rcx,8)
lea    (%r9,%rbx,1),%rcx
add    $0x4,%rcx
add    $0x4,%rbx
cmp    $0x2,%rcx
jne    1340 <o_covsrt+0x240>
test   %r8,%r8
je     13db <o_covsrt+0x2db>
lea    (%rdx,%rbx,4),%rcx
lea    (%rax,%rbx,8),%rax
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  (%rax,%rdx,8),%xmm0
movslq (%rcx,%rdx,4),%rbp
mov    (%rdi,%rbp,8),%rbx
movsd  %xmm0,(%rbx,%rbp,8)
add    $0x1,%rdx
cmp    %rdx,%r8
jne    13c0 <o_covsrt+0x2c0>
cmp    $0x2,%esi
jge    13eb <o_covsrt+0x2eb>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
add    $0x1,%esi
mov    $0x2,%eax
mov    $0x1,%r9d
xor    %r8d,%r8d
jmp    140d <o_covsrt+0x30d>
xchg   %ax,%ax
add    $0x1,%rax
add    $0x1,%r9
cmp    %rsi,%rax
je     13e0 <o_covsrt+0x2e0>
mov    %r8,%rcx
add    $0x1,%r8
mov    (%rdi,%rax,8),%rbx
mov    $0x1,%edx
cmp    $0x3,%rcx
jb     1481 <o_covsrt+0x381>
mov    %r9,%rcx
and    $0xfffffffffffffffc,%rcx
xor    %edx,%edx
nopl   0x0(%rax)
movsd  0x8(%rbx,%rdx,8),%xmm0
mov    0x8(%rdi,%rdx,8),%rbp
movsd  %xmm0,0x0(%rbp,%rax,8)
movsd  0x10(%rbx,%rdx,8),%xmm0
mov    0x10(%rdi,%rdx,8),%rbp
movsd  %xmm0,0x0(%rbp,%rax,8)
movsd  0x18(%rbx,%rdx,8),%xmm0
mov    0x18(%rdi,%rdx,8),%rbp
movsd  %xmm0,0x0(%rbp,%rax,8)
movsd  0x20(%rbx,%rdx,8),%xmm0
mov    0x20(%rdi,%rdx,8),%rbp
movsd  %xmm0,0x0(%rbp,%rax,8)
add    $0x4,%rdx
cmp    %rdx,%rcx
jne    1430 <o_covsrt+0x330>
add    $0x1,%rdx
test   $0x3,%r8b
je     1400 <o_covsrt+0x300>
mov    %r9d,%r10d
and    $0x3,%r10d
lea    (%rdi,%rdx,8),%rcx
lea    (%rbx,%rdx,8),%rdx
xor    %ebx,%ebx
nopl   0x0(%rax)
movsd  (%rdx,%rbx,8),%xmm0
mov    (%rcx,%rbx,8),%rbp
movsd  %xmm0,0x0(%rbp,%rax,8)
add    $0x1,%rbx
cmp    %rbx,%r10
jne    14a0 <o_covsrt+0x3a0>
jmp    1400 <o_covsrt+0x300>

LLVM IR (-O0):
define void @o_covsrt(double** %0, i32 %1, i32* %2, i32 %3) {
%5 = alloca double**
%6 = alloca i32
%7 = alloca i32*
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca double
store double** %0, double*** %5
store i32 %1, i32* %6
store i32* %2, i32** %7
store i32 %3, i32* %8
store i32 1, i32* %10
br label %12
12: ; preds = %36, %4
%13 = load i32, i32* %10
%14 = load i32, i32* %6
%15 = icmp slt i32 %13, %14
br i1 %15, label %16, label %39
16: ; preds = %12
%17 = load i32, i32* %10
%18 = add nsw i32 %17, 1
store i32 %18, i32* %9
br label %19
19: ; preds = %32, %16
%20 = load i32, i32* %9
%21 = load i32, i32* %6
%22 = icmp sle i32 %20, %21
br i1 %22, label %23, label %35
23: ; preds = %19
%24 = load double**, double*** %5
%25 = load i32, i32* %9
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds double*, double** %24, i64 %26
%28 = load double*, double** %27
%29 = load i32, i32* %10
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds double, double* %28, i64 %30
store double 0.000000e+00, double* %31
br label %32
32: ; preds = %23
%33 = load i32, i32* %9
%34 = add nsw i32 %33, 1
store i32 %34, i32* %9
br label %19
35: ; preds = %19
br label %36
36: ; preds = %35
%37 = load i32, i32* %10
%38 = add nsw i32 %37, 1
store i32 %38, i32* %10
br label %12
39: ; preds = %12
store i32 1, i32* %9
br label %40
40: ; preds = %120, %39
%41 = load i32, i32* %9
%42 = load i32, i32* %8
%43 = icmp slt i32 %41, %42
br i1 %43, label %44, label %123
44: ; preds = %40
%45 = load i32, i32* %9
%46 = add nsw i32 %45, 1
store i32 %46, i32* %10
br label %47
47: ; preds = %116, %44
%48 = load i32, i32* %10
%49 = load i32, i32* %8
%50 = icmp sle i32 %48, %49
br i1 %50, label %51, label %119
51: ; preds = %47
%52 = load i32*, i32** %7
%53 = load i32, i32* %10
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds i32, i32* %52, i64 %54
%56 = load i32, i32* %55
%57 = load i32*, i32** %7
%58 = load i32, i32* %9
%59 = sext i32 %58 to i64
%60 = getelementptr inbounds i32, i32* %57, i64 %59
%61 = load i32, i32* %60
%62 = icmp sgt i32 %56, %61
br i1 %62, label %63, label %89
63: ; preds = %51
%64 = load double**, double*** %5
%65 = load i32, i32* %9
%66 = sext i32 %65 to i64
%67 = getelementptr inbounds double*, double** %64, i64 %66
%68 = load double*, double** %67
%69 = load i32, i32* %10
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds double, double* %68, i64 %70
%72 = load double, double* %71
%73 = load double**, double*** %5
%74 = load i32*, i32** %7
%75 = load i32, i32* %10
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds i32, i32* %74, i64 %76
%78 = load i32, i32* %77
%79 = sext i32 %78 to i64
%80 = getelementptr inbounds double*, double** %73, i64 %79
%81 = load double*, double** %80
%82 = load i32*, i32** %7
%83 = load i32, i32* %9
%84 = sext i32 %83 to i64
%85 = getelementptr inbounds i32, i32* %82, i64 %84
%86 = load i32, i32* %85
%87 = sext i32 %86 to i64
%88 = getelementptr inbounds double, double* %81, i64 %87
store double %72, double* %88
br label %115
89: ; preds = %51
%90 = load double**, double*** %5
%91 = load i32, i32* %9
%92 = sext i32 %91 to i64
%93 = getelementptr inbounds double*, double** %90, i64 %92
%94 = load double*, double** %93
%95 = load i32, i32* %10
%96 = sext i32 %95 to i64
%97 = getelementptr inbounds double, double* %94, i64 %96
%98 = load double, double* %97
%99 = load double**, double*** %5
%100 = load i32*, i32** %7
%101 = load i32, i32* %9
%102 = sext i32 %101 to i64
%103 = getelementptr inbounds i32, i32* %100, i64 %102
%104 = load i32, i32* %103
%105 = sext i32 %104 to i64
%106 = getelementptr inbounds double*, double** %99, i64 %105
%107 = load double*, double** %106
%108 = load i32*, i32** %7
%109 = load i32, i32* %10
%110 = sext i32 %109 to i64
%111 = getelementptr inbounds i32, i32* %108, i64 %110
%112 = load i32, i32* %111
%113 = sext i32 %112 to i64
%114 = getelementptr inbounds double, double* %107, i64 %113
store double %98, double* %114
br label %115
115: ; preds = %89, %63
br label %116
116: ; preds = %115
%117 = load i32, i32* %10
%118 = add nsw i32 %117, 1
store i32 %118, i32* %10
br label %47
119: ; preds = %47
br label %120
120: ; preds = %119
%121 = load i32, i32* %9
%122 = add nsw i32 %121, 1
store i32 %122, i32* %9
br label %40
123: ; preds = %40
%124 = load double**, double*** %5
%125 = getelementptr inbounds double*, double** %124, i64 1
%126 = load double*, double** %125
%127 = getelementptr inbounds double, double* %126, i64 1
%128 = load double, double* %127
store double %128, double* %11
store i32 1, i32* %10
br label %129
129: ; preds = %157, %123
%130 = load i32, i32* %10
%131 = load i32, i32* %6
%132 = icmp sle i32 %130, %131
br i1 %132, label %133, label %160
133: ; preds = %129
%134 = load double**, double*** %5
%135 = load i32, i32* %10
%136 = sext i32 %135 to i64
%137 = getelementptr inbounds double*, double** %134, i64 %136
%138 = load double*, double** %137
%139 = load i32, i32* %10
%140 = sext i32 %139 to i64
%141 = getelementptr inbounds double, double* %138, i64 %140
%142 = load double, double* %141
%143 = load double**, double*** %5
%144 = getelementptr inbounds double*, double** %143, i64 1
%145 = load double*, double** %144
%146 = load i32, i32* %10
%147 = sext i32 %146 to i64
%148 = getelementptr inbounds double, double* %145, i64 %147
store double %142, double* %148
%149 = load double**, double*** %5
%150 = load i32, i32* %10
%151 = sext i32 %150 to i64
%152 = getelementptr inbounds double*, double** %149, i64 %151
%153 = load double*, double** %152
%154 = load i32, i32* %10
%155 = sext i32 %154 to i64
%156 = getelementptr inbounds double, double* %153, i64 %155
store double 0.000000e+00, double* %156
br label %157
157: ; preds = %133
%158 = load i32, i32* %10
%159 = add nsw i32 %158, 1
store i32 %159, i32* %10
br label %129
160: ; preds = %129
%161 = load double, double* %11
%162 = load double**, double*** %5
%163 = load i32*, i32** %7
%164 = getelementptr inbounds i32, i32* %163, i64 1
%165 = load i32, i32* %164
%166 = sext i32 %165 to i64
%167 = getelementptr inbounds double*, double** %162, i64 %166
%168 = load double*, double** %167
%169 = load i32*, i32** %7
%170 = getelementptr inbounds i32, i32* %169, i64 1
%171 = load i32, i32* %170
%172 = sext i32 %171 to i64
%173 = getelementptr inbounds double, double* %168, i64 %172
store double %161, double* %173
store i32 2, i32* %10
br label %174
174: ; preds = %202, %160
%175 = load i32, i32* %10
%176 = load i32, i32* %8
%177 = icmp sle i32 %175, %176
br i1 %177, label %178, label %205
178: ; preds = %174
%179 = load double**, double*** %5
%180 = getelementptr inbounds double*, double** %179, i64 1
%181 = load double*, double** %180
%182 = load i32, i32* %10
%183 = sext i32 %182 to i64
%184 = getelementptr inbounds double, double* %181, i64 %183
%185 = load double, double* %184
%186 = load double**, double*** %5
%187 = load i32*, i32** %7
%188 = load i32, i32* %10
%189 = sext i32 %188 to i64
%190 = getelementptr inbounds i32, i32* %187, i64 %189
%191 = load i32, i32* %190
%192 = sext i32 %191 to i64
%193 = getelementptr inbounds double*, double** %186, i64 %192
%194 = load double*, double** %193
%195 = load i32*, i32** %7
%196 = load i32, i32* %10
%197 = sext i32 %196 to i64
%198 = getelementptr inbounds i32, i32* %195, i64 %197
%199 = load i32, i32* %198
%200 = sext i32 %199 to i64
%201 = getelementptr inbounds double, double* %194, i64 %200
store double %185, double* %201
br label %202
202: ; preds = %178
%203 = load i32, i32* %10
%204 = add nsw i32 %203, 1
store i32 %204, i32* %10
br label %174
205: ; preds = %174
store i32 2, i32* %10
br label %206
206: ; preds = %238, %205
%207 = load i32, i32* %10
%208 = load i32, i32* %6
%209 = icmp sle i32 %207, %208
br i1 %209, label %210, label %241
210: ; preds = %206
store i32 1, i32* %9
br label %211
211: ; preds = %234, %210
%212 = load i32, i32* %9
%213 = load i32, i32* %10
%214 = sub nsw i32 %213, 1
%215 = icmp sle i32 %212, %214
br i1 %215, label %216, label %237
216: ; preds = %211
%217 = load double**, double*** %5
%218 = load i32, i32* %10
%219 = sext i32 %218 to i64
%220 = getelementptr inbounds double*, double** %217, i64 %219
%221 = load double*, double** %220
%222 = load i32, i32* %9
%223 = sext i32 %222 to i64
%224 = getelementptr inbounds double, double* %221, i64 %223
%225 = load double, double* %224
%226 = load double**, double*** %5
%227 = load i32, i32* %9
%228 = sext i32 %227 to i64
%229 = getelementptr inbounds double*, double** %226, i64 %228
%230 = load double*, double** %229
%231 = load i32, i32* %10
%232 = sext i32 %231 to i64
%233 = getelementptr inbounds double, double* %230, i64 %232
store double %225, double* %233
br label %234
234: ; preds = %216
%235 = load i32, i32* %9
%236 = add nsw i32 %235, 1
store i32 %236, i32* %9
br label %211
237: ; preds = %211
br label %238
238: ; preds = %237
%239 = load i32, i32* %10
%240 = add nsw i32 %239, 1
store i32 %240, i32* %10
br label %206
241: ; preds = %206
ret void
}

LLVM IR (-O2):
define void @o_covsrt(double** nocapture %0, i32 %1, i32* nocapture %2, i32 %3) {
%5 = icmp sgt i32 %1, 1
br i1 %5, label %6, label %40
6: ; preds = %4
%7 = add nuw i32 %1, 1
%8 = zext i32 %1 to i64
%9 = zext i32 %7 to i64
%10 = add nsw i64 %8, -1
%11 = and i64 %10, 1
%12 = icmp eq i32 %1, 2
br i1 %12, label %29, label %13
13: ; preds = %6
%14 = and i64 %10, -2
br label %46
15: ; preds = %51
%16 = or i64 %48, 1
%17 = add nuw nsw i64 %47, 2
br label %18
18: ; preds = %18, %15
%19 = phi i64 [ %16, %15 ], [ %23, %18 ]
%20 = getelementptr inbounds double*, double** %0, i64 %19
%21 = load double*, double** %20
%22 = getelementptr inbounds double, double* %21, i64 %50
store double 0.000000e+00, double* %22
%23 = add nuw nsw i64 %19, 1
%24 = icmp eq i64 %23, %9
br i1 %24, label %25, label %18
25: ; preds = %18
%26 = add nuw nsw i64 %48, 2
%27 = add i64 %49, 2
%28 = icmp eq i64 %27, %14
br i1 %28, label %29, label %46
29: ; preds = %25, %6
%30 = phi i64 [ 1, %6 ], [ %17, %25 ]
%31 = phi i64 [ 2, %6 ], [ %26, %25 ]
%32 = icmp eq i64 %11, 0
br i1 %32, label %40, label %33
33: ; preds = %29, %33
%34 = phi i64 [ %38, %33 ], [ %31, %29 ]
%35 = getelementptr inbounds double*, double** %0, i64 %34
%36 = load double*, double** %35
%37 = getelementptr inbounds double, double* %36, i64 %30
store double 0.000000e+00, double* %37
%38 = add nuw nsw i64 %34, 1
%39 = icmp eq i64 %38, %9
br i1 %39, label %40, label %33
40: ; preds = %29, %33, %4
%41 = icmp sgt i32 %3, 1
br i1 %41, label %42, label %91
42: ; preds = %40
%43 = add nuw i32 %3, 1
%44 = zext i32 %3 to i64
%45 = zext i32 %43 to i64
br label %61
46: ; preds = %25, %13
%47 = phi i64 [ 1, %13 ], [ %17, %25 ]
%48 = phi i64 [ 2, %13 ], [ %26, %25 ]
%49 = phi i64 [ 0, %13 ], [ %27, %25 ]
%50 = add nuw nsw i64 %47, 1
br label %51
51: ; preds = %46, %51
%52 = phi i64 [ %48, %46 ], [ %56, %51 ]
%53 = getelementptr inbounds double*, double** %0, i64 %52
%54 = load double*, double** %53
%55 = getelementptr inbounds double, double* %54, i64 %47
store double 0.000000e+00, double* %55
%56 = add nuw nsw i64 %52, 1
%57 = icmp eq i64 %56, %9
br i1 %57, label %15, label %51
58: ; preds = %87
%59 = add nuw nsw i64 %63, 1
%60 = icmp eq i64 %64, %44
br i1 %60, label %91, label %61
61: ; preds = %58, %42
%62 = phi i64 [ 1, %42 ], [ %64, %58 ]
%63 = phi i64 [ 2, %42 ], [ %59, %58 ]
%64 = add nuw nsw i64 %62, 1
%65 = getelementptr inbounds i32, i32* %2, i64 %62
%66 = load i32, i32* %65
%67 = getelementptr inbounds double*, double** %0, i64 %62
%68 = sext i32 %66 to i64
%69 = getelementptr inbounds double*, double** %0, i64 %68
%70 = load double*, double** %67
br label %71
71: ; preds = %61, %87
%72 = phi i64 [ %63, %61 ], [ %89, %87 ]
%73 = getelementptr inbounds i32, i32* %2, i64 %72
%74 = load i32, i32* %73
%75 = icmp sgt i32 %74, %66
%76 = getelementptr inbounds double, double* %70, i64 %72
%77 = load double, double* %76
br i1 %75, label %78, label %83
78: ; preds = %71
%79 = sext i32 %74 to i64
%80 = getelementptr inbounds double*, double** %0, i64 %79
%81 = load double*, double** %80
%82 = getelementptr inbounds double, double* %81, i64 %68
br label %87
83: ; preds = %71
%84 = load double*, double** %69
%85 = sext i32 %74 to i64
%86 = getelementptr inbounds double, double* %84, i64 %85
br label %87
87: ; preds = %78, %83
%88 = phi double* [ %82, %78 ], [ %86, %83 ]
store double %77, double* %88
%89 = add nuw nsw i64 %72, 1
%90 = icmp eq i64 %89, %45
br i1 %90, label %58, label %71
91: ; preds = %58, %40
%92 = getelementptr inbounds double*, double** %0, i64 1
%93 = load double*, double** %92
%94 = getelementptr inbounds double, double* %93, i64 1
%95 = load double, double* %94
%96 = icmp slt i32 %1, 1
br i1 %96, label %137, label %97
97: ; preds = %91
%98 = add nuw i32 %1, 1
%99 = zext i32 %98 to i64
%100 = getelementptr inbounds double, double* %93, i64 1
store double 0.000000e+00, double* %100
%101 = icmp eq i32 %98, 2
br i1 %101, label %137, label %102
102: ; preds = %97
%103 = and i64 %99, 1
%104 = icmp eq i32 %98, 3
br i1 %104, label %127, label %105
105: ; preds = %102
%106 = add nsw i64 %99, -2
%107 = and i64 %106, -2
br label %108
108: ; preds = %108, %105
%109 = phi i64 [ 2, %105 ], [ %124, %108 ]
%110 = phi i64 [ 0, %105 ], [ %125, %108 ]
%111 = getelementptr inbounds double*, double** %0, i64 %109
%112 = load double*, double** %111
%113 = getelementptr inbounds double, double* %112, i64 %109
%114 = load double, double* %113
%115 = getelementptr inbounds double, double* %112, i64 %109
%116 = getelementptr inbounds double, double* %93, i64 %109
store double %114, double* %116
store double 0.000000e+00, double* %115
%117 = or i64 %109, 1
%118 = getelementptr inbounds double*, double** %0, i64 %117
%119 = load double*, double** %118
%120 = getelementptr inbounds double, double* %119, i64 %117
%121 = load double, double* %120
%122 = getelementptr inbounds double, double* %119, i64 %117
%123 = getelementptr inbounds double, double* %93, i64 %117
store double %121, double* %123
store double 0.000000e+00, double* %122
%124 = add nuw nsw i64 %109, 2
%125 = add i64 %110, 2
%126 = icmp eq i64 %125, %107
br i1 %126, label %127, label %108
127: ; preds = %108, %102
%128 = phi i64 [ 2, %102 ], [ %124, %108 ]
%129 = icmp eq i64 %103, 0
br i1 %129, label %137, label %130
130: ; preds = %127
%131 = getelementptr inbounds double*, double** %0, i64 %128
%132 = load double*, double** %131
%133 = getelementptr inbounds double, double* %132, i64 %128
%134 = load double, double* %133
%135 = getelementptr inbounds double, double* %132, i64 %128
%136 = getelementptr inbounds double, double* %93, i64 %128
store double %134, double* %136
store double 0.000000e+00, double* %135
br label %137
137: ; preds = %130, %127, %97, %91
%138 = getelementptr inbounds i32, i32* %2, i64 1
%139 = load i32, i32* %138
%140 = sext i32 %139 to i64
%141 = getelementptr inbounds double*, double** %0, i64 %140
%142 = load double*, double** %141
%143 = getelementptr inbounds double, double* %142, i64 %140
store double %95, double* %143
%144 = icmp slt i32 %3, 2
br i1 %144, label %171, label %145
145: ; preds = %137
%146 = add nuw i32 %3, 1
%147 = zext i32 %146 to i64
%148 = add nsw i64 %147, -2
%149 = add nsw i64 %147, -3
%150 = and i64 %148, 3
%151 = icmp ult i64 %149, 3
br i1 %151, label %154, label %152
152: ; preds = %145
%153 = and i64 %148, -4
br label %176
154: ; preds = %176, %145
%155 = phi i64 [ 2, %145 ], [ %214, %176 ]
%156 = icmp eq i64 %150, 0
br i1 %156, label %171, label %157
157: ; preds = %154, %157
%158 = phi i64 [ %168, %157 ], [ %155, %154 ]
%159 = phi i64 [ %169, %157 ], [ 0, %154 ]
%160 = getelementptr inbounds double, double* %93, i64 %158
%161 = load double, double* %160
%162 = getelementptr inbounds i32, i32* %2, i64 %158
%163 = load i32, i32* %162
%164 = sext i32 %163 to i64
%165 = getelementptr inbounds double*, double** %0, i64 %164
%166 = load double*, double** %165
%167 = getelementptr inbounds double, double* %166, i64 %164
store double %161, double* %167
%168 = add nuw nsw i64 %158, 1
%169 = add i64 %159, 1
%170 = icmp eq i64 %169, %150
br i1 %170, label %171, label %157
171: ; preds = %154, %157, %137
%172 = icmp slt i32 %1, 2
br i1 %172, label %274, label %173
173: ; preds = %171
%174 = add nuw i32 %1, 1
%175 = zext i32 %174 to i64
br label %217
176: ; preds = %176, %152
%177 = phi i64 [ 2, %152 ], [ %214, %176 ]
%178 = phi i64 [ 0, %152 ], [ %215, %176 ]
%179 = getelementptr inbounds double, double* %93, i64 %177
%180 = load double, double* %179
%181 = getelementptr inbounds i32, i32* %2, i64 %177
%182 = load i32, i32* %181
%183 = sext i32 %182 to i64
%184 = getelementptr inbounds double*, double** %0, i64 %183
%185 = load double*, double** %184
%186 = getelementptr inbounds double, double* %185, i64 %183
store double %180, double* %186
%187 = or i64 %177, 1
%188 = getelementptr inbounds double, double* %93, i64 %187
%189 = load double, double* %188
%190 = getelementptr inbounds i32, i32* %2, i64 %187
%191 = load i32, i32* %190
%192 = sext i32 %191 to i64
%193 = getelementptr inbounds double*, double** %0, i64 %192
%194 = load double*, double** %193
%195 = getelementptr inbounds double, double* %194, i64 %192
store double %189, double* %195
%196 = add nuw nsw i64 %177, 2
%197 = getelementptr inbounds double, double* %93, i64 %196
%198 = load double, double* %197
%199 = getelementptr inbounds i32, i32* %2, i64 %196
%200 = load i32, i32* %199
%201 = sext i32 %200 to i64
%202 = getelementptr inbounds double*, double** %0, i64 %201
%203 = load double*, double** %202
%204 = getelementptr inbounds double, double* %203, i64 %201
store double %198, double* %204
%205 = add nuw nsw i64 %177, 3
%206 = getelementptr inbounds double, double* %93, i64 %205
%207 = load double, double* %206
%208 = getelementptr inbounds i32, i32* %2, i64 %205
%209 = load i32, i32* %208
%210 = sext i32 %209 to i64
%211 = getelementptr inbounds double*, double** %0, i64 %210
%212 = load double*, double** %211
%213 = getelementptr inbounds double, double* %212, i64 %210
store double %207, double* %213
%214 = add nuw nsw i64 %177, 4
%215 = add i64 %178, 4
%216 = icmp eq i64 %215, %153
br i1 %216, label %154, label %176
217: ; preds = %173, %270
%218 = phi i64 [ 0, %173 ], [ %273, %270 ]
%219 = phi i64 [ 2, %173 ], [ %271, %270 ]
%220 = add i64 %218, 1
%221 = getelementptr inbounds double*, double** %0, i64 %219
%222 = load double*, double** %221
%223 = and i64 %220, 3
%224 = icmp ult i64 %218, 3
br i1 %224, label %256, label %225
225: ; preds = %217
%226 = and i64 %220, -4
br label %227
227: ; preds = %227, %225
%228 = phi i64 [ 1, %225 ], [ %253, %227 ]
%229 = phi i64 [ 0, %225 ], [ %254, %227 ]
%230 = getelementptr inbounds double, double* %222, i64 %228
%231 = load double, double* %230
%232 = getelementptr inbounds double*, double** %0, i64 %228
%233 = load double*, double** %232
%234 = getelementptr inbounds double, double* %233, i64 %219
store double %231, double* %234
%235 = add nuw nsw i64 %228, 1
%236 = getelementptr inbounds double, double* %222, i64 %235
%237 = load double, double* %236
%238 = getelementptr inbounds double*, double** %0, i64 %235
%239 = load double*, double** %238
%240 = getelementptr inbounds double, double* %239, i64 %219
store double %237, double* %240
%241 = add nuw nsw i64 %228, 2
%242 = getelementptr inbounds double, double* %222, i64 %241
%243 = load double, double* %242
%244 = getelementptr inbounds double*, double** %0, i64 %241
%245 = load double*, double** %244
%246 = getelementptr inbounds double, double* %245, i64 %219
store double %243, double* %246
%247 = add nuw nsw i64 %228, 3
%248 = getelementptr inbounds double, double* %222, i64 %247
%249 = load double, double* %248
%250 = getelementptr inbounds double*, double** %0, i64 %247
%251 = load double*, double** %250
%252 = getelementptr inbounds double, double* %251, i64 %219
store double %249, double* %252
%253 = add nuw nsw i64 %228, 4
%254 = add i64 %229, 4
%255 = icmp eq i64 %254, %226
br i1 %255, label %256, label %227
256: ; preds = %227, %217
%257 = phi i64 [ 1, %217 ], [ %253, %227 ]
%258 = icmp eq i64 %223, 0
br i1 %258, label %270, label %259
259: ; preds = %256, %259
%260 = phi i64 [ %267, %259 ], [ %257, %256 ]
%261 = phi i64 [ %268, %259 ], [ 0, %256 ]
%262 = getelementptr inbounds double, double* %222, i64 %260
%263 = load double, double* %262
%264 = getelementptr inbounds double*, double** %0, i64 %260
%265 = load double*, double** %264
%266 = getelementptr inbounds double, double* %265, i64 %219
store double %263, double* %266
%267 = add nuw nsw i64 %260, 1
%268 = add i64 %261, 1
%269 = icmp eq i64 %268, %223
br i1 %269, label %270, label %259
270: ; preds = %259, %256
%271 = add nuw nsw i64 %219, 1
%272 = icmp eq i64 %271, %175
%273 = add i64 %218, 1
br i1 %272, label %274, label %217
274: ; preds = %270, %171
ret void
}