#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ printf(char *);
int invrecr_UU(double *U, double *inv, int lda, int n, char uctl) {
  int col, row, k;
  if (n < 0) {
    printf("ndim can't be negative!\n");
    return -1;
  }
  int iptx[n];
  double sum;
  for (col = 0; col < n; col++) {
    iptx[col] = (col + 1) * col / 2;
  }
  for (col = 0; col < n; col++) {
    for (row = 0; row < col; row++) {
      sum = 0.0;
      for (k = row; k < col; k++) {
        if (uctl == 'H')
          sum += inv[row + iptx[k]] * U[k + iptx[col]];
        else
          sum += inv[row + iptx[k]] * U[k + lda * col];
      }
      if (uctl == 'H')
        inv[row + iptx[col]] = -sum / U[col + iptx[col]];
      else
        inv[row + iptx[col]] = -sum / U[col + lda * col];
    }
    if (uctl == 'H')
      inv[col + iptx[col]] = 1.0 / U[col + iptx[col]];
    else
      inv[col + iptx[col]] = 1.0 / U[col + lda * col];
  }
  return 0;
}


x86 assembly (clang, -O0):
<invrecr_UU>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %r8b,%al
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
mov    %ecx,-0x20(%rbp)
mov    %al,-0x21(%rbp)
cmpl   $0x0,-0x20(%rbp)
jge    114e <invrecr_UU+0x3e>
lea    0xecb(%rip),%rdi
call   1030 <printf@plt>
movl   $0xffffffff,-0x4(%rbp)
jmp    1404 <invrecr_UU+0x2f4>
mov    -0x20(%rbp),%eax
mov    %rsp,%rcx
mov    %rcx,-0x38(%rbp)
lea    0xf(,%rax,4),%rdx
and    $0xfffffffffffffff0,%rdx
mov    %rsp,%rcx
sub    %rdx,%rcx
mov    %rcx,-0x50(%rbp)
mov    %rcx,%rsp
mov    %rax,-0x40(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    11b5 <invrecr_UU+0xa5>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
imul   -0x28(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%edx
mov    -0x50(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    117c <invrecr_UU+0x6c>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    13f6 <invrecr_UU+0x2e6>
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x28(%rbp),%eax
jge    135f <invrecr_UU+0x24f>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x48(%rbp)
mov    -0x2c(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x28(%rbp),%eax
jge    12a0 <invrecr_UU+0x190>
movsbl -0x21(%rbp),%eax
cmp    $0x48,%eax
jne    1249 <invrecr_UU+0x139>
mov    -0x50(%rbp),%rdx
mov    -0x18(%rbp),%rax
mov    -0x2c(%rbp),%ecx
movslq -0x30(%rbp),%rsi
add    (%rdx,%rsi,4),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x30(%rbp),%ecx
movslq -0x28(%rbp),%rsi
add    (%rdx,%rsi,4),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x48(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
jmp    128d <invrecr_UU+0x17d>
mov    -0x50(%rbp),%rdx
mov    -0x18(%rbp),%rax
mov    -0x2c(%rbp),%ecx
movslq -0x30(%rbp),%rsi
add    (%rdx,%rsi,4),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x30(%rbp),%ecx
mov    -0x1c(%rbp),%edx
imul   -0x28(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x48(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
jmp    1292 <invrecr_UU+0x182>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    11e9 <invrecr_UU+0xd9>
movsbl -0x21(%rbp),%eax
cmp    $0x48,%eax
jne    12fe <invrecr_UU+0x1ee>
mov    -0x50(%rbp),%rdx
movsd  -0x48(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
movslq -0x28(%rbp),%rsi
add    (%rdx,%rsi,4),%ecx
movslq %ecx,%rcx
divsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x2c(%rbp),%ecx
movslq -0x28(%rbp),%rsi
add    (%rdx,%rsi,4),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    134c <invrecr_UU+0x23c>
mov    -0x50(%rbp),%rdx
movsd  -0x48(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
mov    -0x1c(%rbp),%esi
imul   -0x28(%rbp),%esi
add    %esi,%ecx
movslq %ecx,%rcx
divsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x2c(%rbp),%ecx
movslq -0x28(%rbp),%rsi
add    (%rdx,%rsi,4),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    1351 <invrecr_UU+0x241>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    11cf <invrecr_UU+0xbf>
movsbl -0x21(%rbp),%eax
cmp    $0x48,%eax
jne    13a9 <invrecr_UU+0x299>
mov    -0x50(%rbp),%rdx
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
movslq -0x28(%rbp),%rsi
add    (%rdx,%rsi,4),%ecx
movslq %ecx,%rcx
movsd  0xc77(%rip),%xmm0
divsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x28(%rbp),%ecx
movslq -0x28(%rbp),%rsi
add    (%rdx,%rsi,4),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    13e3 <invrecr_UU+0x2d3>
mov    -0x50(%rbp),%rdx
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
mov    -0x1c(%rbp),%esi
imul   -0x28(%rbp),%esi
add    %esi,%ecx
movslq %ecx,%rcx
movsd  0xc38(%rip),%xmm0
divsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x28(%rbp),%ecx
movslq -0x28(%rbp),%rsi
add    (%rdx,%rsi,4),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
jmp    13e8 <invrecr_UU+0x2d8>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    11bc <invrecr_UU+0xac>
movl   $0x0,-0x4(%rbp)
mov    -0x38(%rbp),%rax
mov    %rax,%rsp
mov    -0x4(%rbp),%eax
mov    %rbp,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<invrecr_UU>:
push   %rbp
mov    %rsp,%rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
test   %ecx,%ecx
js     1152 <invrecr_UU+0x42>
mov    %rsp,%r9
mov    %ecx,%r10d
mov    %rsp,%r12
lea    0xf(,%r10,4),%rbx
and    $0xfffffffffffffff0,%rbx
sub    %rbx,%r12
mov    %r12,%rsp
test   %ecx,%ecx
je     1399 <invrecr_UU+0x289>
cmp    $0x8,%ecx
jae    1168 <invrecr_UU+0x58>
xor    %r11d,%r11d
jmp    1260 <invrecr_UU+0x150>
lea    0xf2f(%rip),%rdi
call   1030 <puts@plt>
mov    $0xffffffff,%eax
jmp    139e <invrecr_UU+0x28e>
mov    %r10d,%r11d
and    $0xfffffff8,%r11d
lea    0x0(,%r10,4),%r14
and    $0xffffffffffffffe0,%r14
movaps 0xe7e(%rip),%xmm0
movaps 0xe87(%rip),%xmm4
movdqa 0xe8f(%rip),%xmm3
xor    %ebx,%ebx
movdqa 0xe94(%rip),%xmm8
pcmpeqd %xmm9,%xmm9
movdqa 0xe96(%rip),%xmm10
movdqa 0xe9d(%rip),%xmm12
movdqa 0xea4(%rip),%xmm11
nopl   0x0(%rax)
movdqa %xmm3,%xmm2
paddd  %xmm8,%xmm2
movaps %xmm4,%xmm1
shufps $0x88,%xmm0,%xmm1
movaps %xmm1,%xmm5
psubd  %xmm9,%xmm5
paddd  %xmm10,%xmm1
pshufd $0xf5,%xmm5,%xmm7
pmuludq %xmm3,%xmm5
pshufd $0xe8,%xmm5,%xmm5
pshufd $0xf5,%xmm3,%xmm6
pmuludq %xmm7,%xmm6
pshufd $0xe8,%xmm6,%xmm6
punpckldq %xmm6,%xmm5
pshufd $0xf5,%xmm1,%xmm6
pmuludq %xmm2,%xmm1
pshufd $0xe8,%xmm1,%xmm1
pshufd $0xf5,%xmm2,%xmm2
pmuludq %xmm6,%xmm2
pshufd $0xe8,%xmm2,%xmm2
punpckldq %xmm2,%xmm1
psrld  $0x1,%xmm5
psrld  $0x1,%xmm1
movdqa %xmm5,(%r12,%rbx,1)
movdqa %xmm1,0x10(%r12,%rbx,1)
paddq  %xmm12,%xmm4
paddq  %xmm12,%xmm0
paddd  %xmm11,%xmm3
add    $0x20,%rbx
cmp    %rbx,%r14
jne    11c0 <invrecr_UU+0xb0>
cmp    %r10,%r11
je     1279 <invrecr_UU+0x169>
cs nopw 0x0(%rax,%rax,1)
nop
lea    0x1(%r11),%r14
mov    %r14d,%ebx
imul   %r11d,%ebx
shr    %ebx
mov    %ebx,(%r12,%r11,4)
mov    %r14,%r11
cmp    %r14,%r10
jne    1260 <invrecr_UU+0x150>
test   %ecx,%ecx
jle    1399 <invrecr_UU+0x289>
movslq %edx,%r11
xor    %r13d,%r13d
movsd  0xdf1(%rip),%xmm0
movapd 0xdd9(%rip),%xmm1
jmp    12cc <invrecr_UU+0x1bc>
nopl   0x0(%rax)
mov    %r13,%rbx
imul   %r11,%rbx
add    %r13,%rbx
movslq (%r12,%r13,4),%rcx
add    %r13,%rcx
movapd %xmm0,%xmm2
divsd  (%rdi,%rbx,8),%xmm2
movsd  %xmm2,(%rsi,%rcx,8)
add    $0x1,%r13
cmp    %r10,%r13
je     1399 <invrecr_UU+0x289>
test   %r13,%r13
je     1380 <invrecr_UU+0x270>
mov    %r13,%r15
imul   %r11,%r15
mov    %r11d,%ecx
imul   %r13d,%ecx
movslq %ecx,%r14
add    %r13,%r14
xor    %ecx,%ecx
jmp    1311 <invrecr_UU+0x201>
nopl   (%rax)
xorpd  %xmm1,%xmm2
divsd  (%rdi,%r14,8),%xmm2
mov    (%r12,%r13,4),%ebx
add    %ecx,%ebx
movslq %ebx,%rax
movsd  %xmm2,(%rsi,%rax,8)
add    $0x1,%rcx
cmp    %r13,%rcx
je     1380 <invrecr_UU+0x270>
pxor   %xmm2,%xmm2
mov    %rcx,%rbx
jmp    1336 <invrecr_UU+0x226>
nopw   0x0(%rax,%rax,1)
lea    (%rbx,%r15,1),%rax
mulsd  (%rdi,%rax,8),%xmm3
addsd  %xmm3,%xmm2
add    $0x1,%rbx
cmp    %r13,%rbx
jae    12f0 <invrecr_UU+0x1e0>
movslq (%r12,%rbx,4),%rax
movslq %ecx,%rdx
add    %rax,%rdx
movsd  (%rsi,%rdx,8),%xmm3
cmp    $0x48,%r8b
jne    1320 <invrecr_UU+0x210>
movslq (%r12,%r13,4),%rax
add    %rbx,%rax
mulsd  (%rdi,%rax,8),%xmm3
addsd  %xmm3,%xmm2
add    $0x1,%rbx
cmp    %r13,%rbx
jb     1336 <invrecr_UU+0x226>
xorpd  %xmm1,%xmm2
movslq (%r12,%r13,4),%rbx
mov    %rbx,%rax
add    %r13,%rax
divsd  (%rdi,%rax,8),%xmm2
jmp    12fe <invrecr_UU+0x1ee>
nopl   0x0(%rax)
cmp    $0x48,%r8b
jne    12a0 <invrecr_UU+0x190>
movslq (%r12,%r13,4),%rcx
add    %r13,%rcx
mov    %rcx,%rbx
jmp    12b1 <invrecr_UU+0x1a1>
mov    %r9,%rsp
xor    %eax,%eax
lea    -0x28(%rbp),%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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