#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*/ nrerror(char *);
void multi_matrix(double **a, long nra, long nca, double **b, long nrb,
                  long ncb, double **o) {
  long i, j, k;
  if (nca != nrb)
    nrerror("matrices a and b do not conform");
  for (i = 1; i <= nra; i++) {
    for (j = 1; j <= ncb; j++) {
      o[i][j] = 0.0;
      for (k = 1; k <= nca; k++)
        o[i][j] += a[i][k] * b[k][j];
    }
  }
}


x86 assembly (clang, -O0):
<multi_matrix>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    0x10(%rbp),%rax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x18(%rbp),%rax
cmp    -0x28(%rbp),%rax
je     114e <multi_matrix+0x3e>
lea    0xeb7(%rip),%rdi
call   1030 <nrerror@plt>
movq   $0x1,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jg     1231 <multi_matrix+0x121>
movq   $0x1,-0x40(%rbp)
mov    -0x40(%rbp),%rax
cmp    -0x30(%rbp),%rax
jg     121b <multi_matrix+0x10b>
mov    0x10(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x40(%rbp),%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
movq   $0x1,-0x48(%rbp)
mov    -0x48(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     1205 <multi_matrix+0xf5>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x48(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
mov    -0x48(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    0x10(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x40(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x48(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x48(%rbp)
jmp    119a <multi_matrix+0x8a>
jmp    120a <multi_matrix+0xfa>
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
jmp    116c <multi_matrix+0x5c>
jmp    1220 <multi_matrix+0x110>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    1156 <multi_matrix+0x46>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<multi_matrix>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %r9,%r14
mov    %rcx,%rbx
mov    %rdx,%r15
mov    %rsi,%r12
mov    %rdi,%r13
cmp    %r8,%rdx
je     1139 <multi_matrix+0x29>
lea    0xecc(%rip),%rdi
call   1030 <nrerror@plt>
test   %r12,%r12
jle    1214 <multi_matrix+0x104>
mov    0x30(%rsp),%r8
mov    %r15,%r10
and    $0xfffffffffffffffe,%r10
neg    %r10
mov    $0x1,%r9d
jmp    1170 <multi_matrix+0x60>
nopl   0x0(%rax)
lea    0x1(%r9),%rax
cmp    %r12,%r9
mov    %rax,%r9
je     1214 <multi_matrix+0x104>
test   %r14,%r14
jle    1160 <multi_matrix+0x50>
mov    (%r8,%r9,8),%rsi
mov    $0x1,%edi
jmp    118c <multi_matrix+0x7c>
lea    0x1(%rdi),%rax
cmp    %r14,%rdi
mov    %rax,%rdi
je     1160 <multi_matrix+0x50>
movq   $0x0,(%rsi,%rdi,8)
test   %r15,%r15
jle    1180 <multi_matrix+0x70>
mov    0x0(%r13,%r9,8),%rax
mov    $0x1,%edx
xorpd  %xmm0,%xmm0
cmp    $0x1,%r15
je     11f2 <multi_matrix+0xe2>
nopl   (%rax)
movsd  (%rax,%rdx,8),%xmm1
mov    (%rbx,%rdx,8),%rcx
mulsd  (%rcx,%rdi,8),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,(%rsi,%rdi,8)
movsd  0x8(%rax,%rdx,8),%xmm0
mov    0x8(%rbx,%rdx,8),%rcx
mulsd  (%rcx,%rdi,8),%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,(%rsi,%rdi,8)
lea    (%r10,%rdx,1),%rcx
add    $0x2,%rcx
add    $0x2,%rdx
cmp    $0x1,%rcx
jne    11b0 <multi_matrix+0xa0>
test   $0x1,%r15b
je     1180 <multi_matrix+0x70>
movsd  (%rax,%rdx,8),%xmm1
mov    (%rbx,%rdx,8),%rax
mulsd  (%rax,%rdi,8),%xmm1
addsd  %xmm0,%xmm1
movsd  %xmm1,(%rsi,%rdi,8)
jmp    1180 <multi_matrix+0x70>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
@.str = [32 x i8] c"matrices a and b do not conform\00"
define void @multi_matrix(double** %0, i64 %1, i64 %2, double** %3, i64 %4, i64 %5, double** %6) {
%8 = alloca double**
%9 = alloca i64
%10 = alloca i64
%11 = alloca double**
%12 = alloca i64
%13 = alloca i64
%14 = alloca double**
%15 = alloca i64
%16 = alloca i64
%17 = alloca i64
store double** %0, double*** %8
store i64 %1, i64* %9
store i64 %2, i64* %10
store double** %3, double*** %11
store i64 %4, i64* %12
store i64 %5, i64* %13
store double** %6, double*** %14
%18 = load i64, i64* %10
%19 = load i64, i64* %12
%20 = icmp ne i64 %18, %19
br i1 %20, label %21, label %23
21: ; preds = %7
%22 = call i32 @nrerror(i8* getelementptr inbounds ([32 x i8], [32 x i8]* @.str, i64 0, i64 0))
br label %23
23: ; preds = %21, %7
store i64 1, i64* %15
br label %24
24: ; preds = %75, %23
%25 = load i64, i64* %15
%26 = load i64, i64* %9
%27 = icmp sle i64 %25, %26
br i1 %27, label %28, label %78
28: ; preds = %24
store i64 1, i64* %16
br label %29
29: ; preds = %71, %28
%30 = load i64, i64* %16
%31 = load i64, i64* %13
%32 = icmp sle i64 %30, %31
br i1 %32, label %33, label %74
33: ; preds = %29
%34 = load double**, double*** %14
%35 = load i64, i64* %15
%36 = getelementptr inbounds double*, double** %34, i64 %35
%37 = load double*, double** %36
%38 = load i64, i64* %16
%39 = getelementptr inbounds double, double* %37, i64 %38
store double 0.000000e+00, double* %39
store i64 1, i64* %17
br label %40
40: ; preds = %67, %33
%41 = load i64, i64* %17
%42 = load i64, i64* %10
%43 = icmp sle i64 %41, %42
br i1 %43, label %44, label %70
44: ; preds = %40
%45 = load double**, double*** %8
%46 = load i64, i64* %15
%47 = getelementptr inbounds double*, double** %45, i64 %46
%48 = load double*, double** %47
%49 = load i64, i64* %17
%50 = getelementptr inbounds double, double* %48, i64 %49
%51 = load double, double* %50
%52 = load double**, double*** %11
%53 = load i64, i64* %17
%54 = getelementptr inbounds double*, double** %52, i64 %53
%55 = load double*, double** %54
%56 = load i64, i64* %16
%57 = getelementptr inbounds double, double* %55, i64 %56
%58 = load double, double* %57
%59 = load double**, double*** %14
%60 = load i64, i64* %15
%61 = getelementptr inbounds double*, double** %59, i64 %60
%62 = load double*, double** %61
%63 = load i64, i64* %16
%64 = getelementptr inbounds double, double* %62, i64 %63
%65 = load double, double* %64
%66 = call double @llvm.fmuladd.f64(double %51, double %58, double %65)
store double %66, double* %64
br label %67
67: ; preds = %44
%68 = load i64, i64* %17
%69 = add nsw i64 %68, 1
store i64 %69, i64* %17
br label %40
70: ; preds = %40
br label %71
71: ; preds = %70
%72 = load i64, i64* %16
%73 = add nsw i64 %72, 1
store i64 %73, i64* %16
br label %29
74: ; preds = %29
br label %75
75: ; preds = %74
%76 = load i64, i64* %15
%77 = add nsw i64 %76, 1
store i64 %77, i64* %15
br label %24
78: ; preds = %24
ret void
}

LLVM IR (-O2):
@.str = [32 x i8] c"matrices a and b do not conform\00"
define void @multi_matrix(double** nocapture %0, i64 %1, i64 %2, double** nocapture %3, i64 %4, i64 %5, double** nocapture %6) {
%8 = icmp eq i64 %2, %4
br i1 %8, label %11, label %9
9: ; preds = %7
%10 = tail call i32 @nrerror(i8* getelementptr inbounds ([32 x i8], [32 x i8]* @.str, i64 0, i64 0))
br label %11
11: ; preds = %9, %7
%12 = icmp slt i64 %1, 1
br i1 %12, label %70, label %13
13: ; preds = %11
%14 = icmp slt i64 %5, 1
%15 = icmp slt i64 %2, 1
%16 = and i64 %2, 1
%17 = icmp eq i64 %2, 1
%18 = and i64 %2, -2
%19 = icmp eq i64 %16, 0
br label %20
20: ; preds = %13, %67
%21 = phi i64 [ 1, %13 ], [ %68, %67 ]
br i1 %14, label %67, label %22
22: ; preds = %20
%23 = getelementptr inbounds double*, double** %6, i64 %21
%24 = load double*, double** %23
%25 = getelementptr inbounds double*, double** %0, i64 %21
br label %26
26: ; preds = %22, %64
%27 = phi i64 [ 1, %22 ], [ %65, %64 ]
%28 = getelementptr inbounds double, double* %24, i64 %27
store double 0.000000e+00, double* %28
br i1 %15, label %64, label %29
29: ; preds = %26
%30 = load double*, double** %25
br i1 %17, label %53, label %31
31: ; preds = %29, %31
%32 = phi double [ %49, %31 ], [ 0.000000e+00, %29 ]
%33 = phi i64 [ %50, %31 ], [ 1, %29 ]
%34 = phi i64 [ %51, %31 ], [ 0, %29 ]
%35 = getelementptr inbounds double, double* %30, i64 %33
%36 = load double, double* %35
%37 = getelementptr inbounds double*, double** %3, i64 %33
%38 = load double*, double** %37
%39 = getelementptr inbounds double, double* %38, i64 %27
%40 = load double, double* %39
%41 = tail call double @llvm.fmuladd.f64(double %36, double %40, double %32)
store double %41, double* %28
%42 = add nuw i64 %33, 1
%43 = getelementptr inbounds double, double* %30, i64 %42
%44 = load double, double* %43
%45 = getelementptr inbounds double*, double** %3, i64 %42
%46 = load double*, double** %45
%47 = getelementptr inbounds double, double* %46, i64 %27
%48 = load double, double* %47
%49 = tail call double @llvm.fmuladd.f64(double %44, double %48, double %41)
store double %49, double* %28
%50 = add nuw i64 %33, 2
%51 = add i64 %34, 2
%52 = icmp eq i64 %51, %18
br i1 %52, label %53, label %31
53: ; preds = %31, %29
%54 = phi double [ 0.000000e+00, %29 ], [ %49, %31 ]
%55 = phi i64 [ 1, %29 ], [ %50, %31 ]
br i1 %19, label %64, label %56
56: ; preds = %53
%57 = getelementptr inbounds double, double* %30, i64 %55
%58 = load double, double* %57
%59 = getelementptr inbounds double*, double** %3, i64 %55
%60 = load double*, double** %59
%61 = getelementptr inbounds double, double* %60, i64 %27
%62 = load double, double* %61
%63 = tail call double @llvm.fmuladd.f64(double %58, double %62, double %54)
store double %63, double* %28
br label %64
64: ; preds = %56, %53, %26
%65 = add nuw i64 %27, 1
%66 = icmp eq i64 %27, %5
br i1 %66, label %67, label %26
67: ; preds = %64, %20
%68 = add nuw i64 %21, 1
%69 = icmp eq i64 %21, %1
br i1 %69, label %70, label %20
70: ; preds = %67, %11
ret void
}