void init_matrix2(double ***m, int nrl, int nrh, int ncl, int nch, int nll,
                  int nlh, double a) {
  int i, j, k;
  for (i = nrl; i <= nrh; i++)
    for (j = ncl; j <= nch; j++)
      for (k = nll; k <= nlh; k++)
        m[i][j][k] = a;
}


x86 assembly (clang, -O0):
<init_matrix2>:
push   %rbp
mov    %rsp,%rbp
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)
movsd  %xmm0,-0x28(%rbp)
mov    -0xc(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x10(%rbp),%eax
jg     11ad <init_matrix2+0xad>
mov    -0x14(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x18(%rbp),%eax
jg     119a <init_matrix2+0x9a>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x34(%rbp),%eax
cmp    0x10(%rbp),%eax
jg     1187 <init_matrix2+0x87>
movsd  -0x28(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x34(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    114b <init_matrix2+0x4b>
jmp    118c <init_matrix2+0x8c>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1139 <init_matrix2+0x39>
jmp    119f <init_matrix2+0x9f>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1127 <init_matrix2+0x27>
pop    %rbp
ret

x86 assembly (clang, -O2):
<init_matrix2>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %r8,-0x50(%rsp)
mov    %ecx,-0x54(%rsp)
mov    %edx,-0x58(%rsp)
cmp    %edx,%esi
jle    1126 <init_matrix2+0x26>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    0x38(%rsp),%ebx
movslq %r9d,%r11
lea    0x1(%rbx),%eax
movslq -0x54(%rsp),%rcx
mov    %rcx,-0x48(%rsp)
mov    -0x50(%rsp),%rcx
lea    0x1(%rcx),%ebp
movslq %esi,%rsi
addl   $0x1,-0x58(%rsp)
mov    %ebx,%r10d
sub    %r11d,%r10d
lea    0x1(%r10),%rcx
mov    %rcx,-0x10(%rsp)
and    $0xfffffffffffffffc,%rcx
lea    -0x4(%rcx),%rdx
mov    %rdx,-0x20(%rsp)
shr    $0x2,%rdx
add    $0x1,%rdx
mov    %rcx,-0x18(%rsp)
add    %r11,%rcx
mov    %rcx,-0x28(%rsp)
movaps %xmm0,%xmm1
movlhps %xmm0,%xmm1
mov    %edx,%r8d
and    $0x3,%r8d
and    $0xfffffffffffffffc,%rdx
mov    %rdx,-0x38(%rsp)
lea    0xe(%r11),%rcx
mov    %rcx,-0x40(%rsp)
mov    %r8,-0x30(%rsp)
shl    $0x5,%r8
mov    %rdi,-0x8(%rsp)
jmp    11be <init_matrix2+0xbe>
nopw   0x0(%rax,%rax,1)
add    $0x1,%rsi
cmp    %esi,-0x58(%rsp)
je     111b <init_matrix2+0x1b>
mov    -0x54(%rsp),%ecx
cmp    -0x50(%rsp),%ecx
jg     11b0 <init_matrix2+0xb0>
mov    -0x48(%rsp),%rdx
jmp    11d8 <init_matrix2+0xd8>
nop
add    $0x1,%rdx
cmp    %edx,%ebp
je     11b0 <init_matrix2+0xb0>
cmp    %r9d,%ebx
jl     11d0 <init_matrix2+0xd0>
mov    (%rdi,%rsi,8),%rcx
mov    (%rcx,%rdx,8),%r15
mov    %r11,%rcx
cmp    $0x3,%r10d
jb     1290 <init_matrix2+0x190>
cmpq   $0xc,-0x20(%rsp)
jae    11ff <init_matrix2+0xff>
xor    %r13d,%r13d
jmp    1249 <init_matrix2+0x149>
mov    -0x40(%rsp),%rcx
lea    (%r15,%rcx,8),%r12
mov    -0x38(%rsp),%r14
xor    %r13d,%r13d
movups %xmm1,-0x70(%r12,%r13,8)
movups %xmm1,-0x60(%r12,%r13,8)
movups %xmm1,-0x50(%r12,%r13,8)
movups %xmm1,-0x40(%r12,%r13,8)
movups %xmm1,-0x30(%r12,%r13,8)
movups %xmm1,-0x20(%r12,%r13,8)
movups %xmm1,-0x10(%r12,%r13,8)
movups %xmm1,(%r12,%r13,8)
add    $0x10,%r13
add    $0xfffffffffffffffc,%r14
jne    1210 <init_matrix2+0x110>
cmpq   $0x0,-0x30(%rsp)
je     1272 <init_matrix2+0x172>
add    %r11,%r13
lea    (%r15,%r13,8),%rcx
add    $0x10,%rcx
xor    %ebx,%ebx
xchg   %ax,%ax
movups %xmm1,-0x10(%rcx,%rbx,1)
movups %xmm1,(%rcx,%rbx,1)
add    $0x20,%rbx
cmp    %rbx,%r8
jne    1260 <init_matrix2+0x160>
mov    -0x28(%rsp),%rcx
mov    -0x18(%rsp),%rdi
cmp    %rdi,-0x10(%rsp)
mov    -0x8(%rsp),%rdi
mov    0x38(%rsp),%ebx
je     11d0 <init_matrix2+0xd0>
movsd  %xmm0,(%r15,%rcx,8)
add    $0x1,%rcx
cmp    %ecx,%eax
jne    1290 <init_matrix2+0x190>
jmp    11d0 <init_matrix2+0xd0>

LLVM IR (-O0):
define void @init_matrix2(double*** %0, i32 %1, i32 %2, i32 %3, i32 %4, i32 %5, i32 %6, double %7) {
%9 = alloca double***
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca double
%17 = alloca i32
%18 = alloca i32
%19 = alloca i32
store double*** %0, double**** %9
store i32 %1, i32* %10
store i32 %2, i32* %11
store i32 %3, i32* %12
store i32 %4, i32* %13
store i32 %5, i32* %14
store i32 %6, i32* %15
store double %7, double* %16
%20 = load i32, i32* %10
store i32 %20, i32* %17
br label %21
21: ; preds = %59, %8
%22 = load i32, i32* %17
%23 = load i32, i32* %11
%24 = icmp sle i32 %22, %23
br i1 %24, label %25, label %62
25: ; preds = %21
%26 = load i32, i32* %12
store i32 %26, i32* %18
br label %27
27: ; preds = %55, %25
%28 = load i32, i32* %18
%29 = load i32, i32* %13
%30 = icmp sle i32 %28, %29
br i1 %30, label %31, label %58
31: ; preds = %27
%32 = load i32, i32* %14
store i32 %32, i32* %19
br label %33
33: ; preds = %51, %31
%34 = load i32, i32* %19
%35 = load i32, i32* %15
%36 = icmp sle i32 %34, %35
br i1 %36, label %37, label %54
37: ; preds = %33
%38 = load double, double* %16
%39 = load double***, double**** %9
%40 = load i32, i32* %17
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds double**, double*** %39, i64 %41
%43 = load double**, double*** %42
%44 = load i32, i32* %18
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds double*, double** %43, i64 %45
%47 = load double*, double** %46
%48 = load i32, i32* %19
%49 = sext i32 %48 to i64
%50 = getelementptr inbounds double, double* %47, i64 %49
store double %38, double* %50
br label %51
51: ; preds = %37
%52 = load i32, i32* %19
%53 = add nsw i32 %52, 1
store i32 %53, i32* %19
br label %33
54: ; preds = %33
br label %55
55: ; preds = %54
%56 = load i32, i32* %18
%57 = add nsw i32 %56, 1
store i32 %57, i32* %18
br label %27
58: ; preds = %27
br label %59
59: ; preds = %58
%60 = load i32, i32* %17
%61 = add nsw i32 %60, 1
store i32 %61, i32* %17
br label %21
62: ; preds = %21
ret void
}

LLVM IR (-O2):
define void @init_matrix2(double*** nocapture %0, i32 %1, i32 %2, i32 %3, i32 %4, i32 %5, i32 %6, double %7) {
%9 = icmp sgt i32 %1, %2
br i1 %9, label %108, label %10
10: ; preds = %8
%11 = icmp sgt i32 %3, %4
%12 = icmp slt i32 %6, %5
%13 = sext i32 %5 to i64
%14 = add i32 %6, 1
%15 = sext i32 %3 to i64
%16 = add i32 %4, 1
%17 = sext i32 %1 to i64
%18 = add i32 %2, 1
%19 = sub i32 %6, %5
%20 = zext i32 %19 to i64
%21 = add nuw nsw i64 %20, 1
%22 = and i64 %21, 8589934588
%23 = add nsw i64 %22, -4
%24 = lshr exact i64 %23, 2
%25 = add nuw nsw i64 %24, 1
%26 = icmp ult i32 %19, 3
%27 = and i64 %21, 8589934588
%28 = add nsw i64 %27, %13
%29 = insertelement <2 x double> poison, double %7, i64 0
%30 = shufflevector <2 x double> %29, <2 x double> poison, <2 x i32> zeroinitializer
%31 = insertelement <2 x double> poison, double %7, i64 0
%32 = shufflevector <2 x double> %31, <2 x double> poison, <2 x i32> zeroinitializer
%33 = and i64 %25, 3
%34 = icmp ult i64 %23, 12
%35 = and i64 %25, 9223372036854775804
%36 = icmp eq i64 %33, 0
%37 = icmp eq i64 %21, %27
br label %38
38: ; preds = %10, %104
%39 = phi i64 [ %17, %10 ], [ %105, %104 ]
br i1 %11, label %104, label %40
40: ; preds = %38
%41 = getelementptr inbounds double**, double*** %0, i64 %39
br label %42
42: ; preds = %40, %100
%43 = phi i64 [ %15, %40 ], [ %101, %100 ]
br i1 %12, label %100, label %44
44: ; preds = %42
%45 = load double**, double*** %41
%46 = getelementptr inbounds double*, double** %45, i64 %43
%47 = load double*, double** %46
br i1 %26, label %92, label %48
48: ; preds = %44
br i1 %34, label %78, label %49
49: ; preds = %48, %49
%50 = phi i64 [ %75, %49 ], [ 0, %48 ]
%51 = phi i64 [ %76, %49 ], [ 0, %48 ]
%52 = add i64 %50, %13
%53 = getelementptr inbounds double, double* %47, i64 %52
%54 = bitcast double* %53 to <2 x double>*
store <2 x double> %30, <2 x double>* %54
%55 = getelementptr inbounds double, double* %53, i64 2
%56 = bitcast double* %55 to <2 x double>*
store <2 x double> %32, <2 x double>* %56
%57 = or i64 %50, 4
%58 = add i64 %57, %13
%59 = getelementptr inbounds double, double* %47, i64 %58
%60 = bitcast double* %59 to <2 x double>*
store <2 x double> %30, <2 x double>* %60
%61 = getelementptr inbounds double, double* %59, i64 2
%62 = bitcast double* %61 to <2 x double>*
store <2 x double> %32, <2 x double>* %62
%63 = or i64 %50, 8
%64 = add i64 %63, %13
%65 = getelementptr inbounds double, double* %47, i64 %64
%66 = bitcast double* %65 to <2 x double>*
store <2 x double> %30, <2 x double>* %66
%67 = getelementptr inbounds double, double* %65, i64 2
%68 = bitcast double* %67 to <2 x double>*
store <2 x double> %32, <2 x double>* %68
%69 = or i64 %50, 12
%70 = add i64 %69, %13
%71 = getelementptr inbounds double, double* %47, i64 %70
%72 = bitcast double* %71 to <2 x double>*
store <2 x double> %30, <2 x double>* %72
%73 = getelementptr inbounds double, double* %71, i64 2
%74 = bitcast double* %73 to <2 x double>*
store <2 x double> %32, <2 x double>* %74
%75 = add nuw i64 %50, 16
%76 = add nuw i64 %51, 4
%77 = icmp eq i64 %76, %35
br i1 %77, label %78, label %49
78: ; preds = %49, %48
%79 = phi i64 [ 0, %48 ], [ %75, %49 ]
br i1 %36, label %91, label %80
80: ; preds = %78, %80
%81 = phi i64 [ %88, %80 ], [ %79, %78 ]
%82 = phi i64 [ %89, %80 ], [ 0, %78 ]
%83 = add i64 %81, %13
%84 = getelementptr inbounds double, double* %47, i64 %83
%85 = bitcast double* %84 to <2 x double>*
store <2 x double> %30, <2 x double>* %85
%86 = getelementptr inbounds double, double* %84, i64 2
%87 = bitcast double* %86 to <2 x double>*
store <2 x double> %32, <2 x double>* %87
%88 = add nuw i64 %81, 4
%89 = add i64 %82, 1
%90 = icmp eq i64 %89, %33
br i1 %90, label %91, label %80
91: ; preds = %80, %78
br i1 %37, label %100, label %92
92: ; preds = %44, %91
%93 = phi i64 [ %13, %44 ], [ %28, %91 ]
br label %94
94: ; preds = %92, %94
%95 = phi i64 [ %97, %94 ], [ %93, %92 ]
%96 = getelementptr inbounds double, double* %47, i64 %95
store double %7, double* %96
%97 = add nsw i64 %95, 1
%98 = trunc i64 %97 to i32
%99 = icmp eq i32 %14, %98
br i1 %99, label %100, label %94
100: ; preds = %94, %91, %42
%101 = add nsw i64 %43, 1
%102 = trunc i64 %101 to i32
%103 = icmp eq i32 %16, %102
br i1 %103, label %104, label %42
104: ; preds = %100, %38
%105 = add nsw i64 %39, 1
%106 = trunc i64 %105 to i32
%107 = icmp eq i32 %18, %106
br i1 %107, label %108, label %38
108: ; preds = %104, %8
ret void
}