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


x86 assembly (clang, -O0):
<init_matrix>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    %r8d,-0x18(%rbp)
movsd  %xmm0,-0x20(%rbp)
mov    -0xc(%rbp),%eax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x10(%rbp),%eax
jg     1179 <init_matrix+0x79>
mov    -0x14(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x18(%rbp),%eax
jg     1166 <init_matrix+0x66>
movsd  -0x20(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x28(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1132 <init_matrix+0x32>
jmp    116b <init_matrix+0x6b>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1120 <init_matrix+0x20>
pop    %rbp
ret

x86 assembly (clang, -O2):
<init_matrix>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
cmp    %edx,%esi
jle    1119 <init_matrix+0x19>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
movslq %ecx,%r9
lea    0x1(%r8),%eax
movslq %esi,%rsi
add    $0x1,%edx
mov    %r8d,%r10d
sub    %r9d,%r10d
lea    0x1(%r10),%rbp
mov    %rbp,-0x8(%rsp)
and    $0xfffffffffffffffc,%rbp
lea    -0x4(%rbp),%rbx
mov    %rbx,-0x18(%rsp)
shr    $0x2,%rbx
add    $0x1,%rbx
mov    %rbp,-0x10(%rsp)
add    %r9,%rbp
mov    %rbp,-0x20(%rsp)
movaps %xmm0,%xmm1
movlhps %xmm0,%xmm1
mov    %ebx,%r13d
and    $0x3,%r13d
and    $0xfffffffffffffffc,%rbx
mov    %rbx,-0x28(%rsp)
lea    0xe(%r9),%rbp
mov    %rbp,-0x30(%rsp)
mov    %r13,%r15
shl    $0x5,%r15
jmp    1188 <init_matrix+0x88>
nop
add    $0x1,%rsi
cmp    %esi,%edx
je     110e <init_matrix+0xe>
cmp    %ecx,%r8d
jl     1180 <init_matrix+0x80>
mov    (%rdi,%rsi,8),%r12
mov    %r9,%rbp
cmp    $0x3,%r10d
jb     1240 <init_matrix+0x140>
cmpq   $0xc,-0x18(%rsp)
jae    11ab <init_matrix+0xab>
xor    %r11d,%r11d
jmp    11fa <init_matrix+0xfa>
mov    -0x30(%rsp),%rbp
lea    (%r12,%rbp,8),%rbp
mov    -0x28(%rsp),%r14
xor    %r11d,%r11d
nopl   0x0(%rax)
movups %xmm1,-0x70(%rbp,%r11,8)
movups %xmm1,-0x60(%rbp,%r11,8)
movups %xmm1,-0x50(%rbp,%r11,8)
movups %xmm1,-0x40(%rbp,%r11,8)
movups %xmm1,-0x30(%rbp,%r11,8)
movups %xmm1,-0x20(%rbp,%r11,8)
movups %xmm1,-0x10(%rbp,%r11,8)
movups %xmm1,0x0(%rbp,%r11,8)
add    $0x10,%r11
add    $0xfffffffffffffffc,%r14
jne    11c0 <init_matrix+0xc0>
test   %r13,%r13
je     1223 <init_matrix+0x123>
add    %r9,%r11
lea    (%r12,%r11,8),%rbp
add    $0x10,%rbp
xor    %ebx,%ebx
nopl   0x0(%rax)
movups %xmm1,-0x10(%rbp,%rbx,1)
movups %xmm1,0x0(%rbp,%rbx,1)
add    $0x20,%rbx
cmp    %rbx,%r15
jne    1210 <init_matrix+0x110>
mov    -0x20(%rsp),%rbp
mov    -0x10(%rsp),%rbx
cmp    %rbx,-0x8(%rsp)
je     1180 <init_matrix+0x80>
nopl   0x0(%rax,%rax,1)
movsd  %xmm0,(%r12,%rbp,8)
add    $0x1,%rbp
cmp    %ebp,%eax
jne    1240 <init_matrix+0x140>
jmp    1180 <init_matrix+0x80>

LLVM IR (-O0):
define void @init_matrix(double** %0, i32 %1, i32 %2, i32 %3, i32 %4, double %5) {
%7 = alloca double**
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca double
%13 = alloca i32
%14 = alloca i32
store double** %0, double*** %7
store i32 %1, i32* %8
store i32 %2, i32* %9
store i32 %3, i32* %10
store i32 %4, i32* %11
store double %5, double* %12
%15 = load i32, i32* %8
store i32 %15, i32* %13
br label %16
16: ; preds = %40, %6
%17 = load i32, i32* %13
%18 = load i32, i32* %9
%19 = icmp sle i32 %17, %18
br i1 %19, label %20, label %43
20: ; preds = %16
%21 = load i32, i32* %10
store i32 %21, i32* %14
br label %22
22: ; preds = %36, %20
%23 = load i32, i32* %14
%24 = load i32, i32* %11
%25 = icmp sle i32 %23, %24
br i1 %25, label %26, label %39
26: ; preds = %22
%27 = load double, double* %12
%28 = load double**, double*** %7
%29 = load i32, i32* %13
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds double*, double** %28, i64 %30
%32 = load double*, double** %31
%33 = load i32, i32* %14
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds double, double* %32, i64 %34
store double %27, double* %35
br label %36
36: ; preds = %26
%37 = load i32, i32* %14
%38 = add nsw i32 %37, 1
store i32 %38, i32* %14
br label %22
39: ; preds = %22
br label %40
40: ; preds = %39
%41 = load i32, i32* %13
%42 = add nsw i32 %41, 1
store i32 %42, i32* %13
br label %16
43: ; preds = %16
ret void
}

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