double max_dmatrix(double **m, long nrl, long nrh, long ncl, long nch) {
  int i, j;
  double maximum = m[nrl][ncl];
  for (i = nrl; i <= nrh; i++) {
    for (j = ncl; j <= nch; j++) {
      if (m[i][j] > maximum)
        maximum = m[i][j];
    }
  }
  return maximum;
}


x86 assembly (clang, -O0):
<max_dmatrix>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x10(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x10(%rbp),%rax
mov    %eax,-0x2c(%rbp)
movslq -0x2c(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     11bc <max_dmatrix+0xbc>
mov    -0x20(%rbp),%rax
mov    %eax,-0x30(%rbp)
movslq -0x30(%rbp),%rax
cmp    -0x28(%rbp),%rax
jg     11a9 <max_dmatrix+0xa9>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd -0x38(%rbp),%xmm0
jbe    1196 <max_dmatrix+0x96>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
jmp    119b <max_dmatrix+0x9b>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    114e <max_dmatrix+0x4e>
jmp    11ae <max_dmatrix+0xae>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1139 <max_dmatrix+0x39>
movsd  -0x38(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<max_dmatrix>:
mov    (%rdi,%rsi,8),%rax
movsd  (%rax,%rcx,8),%xmm1
movslq %esi,%rax
cmp    %rdx,%rax
jle    1116 <max_dmatrix+0x16>
movapd %xmm1,%xmm0
ret
movslq %ecx,%r9
jmp    1131 <max_dmatrix+0x31>
nopl   0x0(%rax,%rax,1)
movapd %xmm1,%xmm0
add    $0x1,%rax
movapd %xmm0,%xmm1
cmp    %rdx,%rax
jg     1158 <max_dmatrix+0x58>
cmp    %r8,%r9
jg     1120 <max_dmatrix+0x20>
mov    (%rdi,%rax,8),%rsi
mov    %r9,%rcx
nopl   (%rax)
movsd  (%rsi,%rcx,8),%xmm0
maxsd  %xmm1,%xmm0
add    $0x1,%rcx
movapd %xmm0,%xmm1
cmp    %r8,%rcx
jle    1140 <max_dmatrix+0x40>
jmp    1124 <max_dmatrix+0x24>
ret

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

LLVM IR (-O2):
define double @max_dmatrix(double** nocapture %0, i64 %1, i64 %2, i64 %3, i64 %4) {
%6 = getelementptr inbounds double*, double** %0, i64 %1
%7 = load double*, double** %6
%8 = getelementptr inbounds double, double* %7, i64 %3
%9 = load double, double* %8
%10 = shl i64 %1, 32
%11 = ashr exact i64 %10, 32
%12 = icmp sgt i64 %11, %2
br i1 %12, label %36, label %13
13: ; preds = %5
%14 = shl i64 %3, 32
%15 = ashr exact i64 %14, 32
%16 = icmp sgt i64 %15, %4
br label %17
17: ; preds = %13, %32
%18 = phi i64 [ %11, %13 ], [ %34, %32 ]
%19 = phi double [ %9, %13 ], [ %33, %32 ]
br i1 %16, label %32, label %20
20: ; preds = %17
%21 = getelementptr inbounds double*, double** %0, i64 %18
%22 = load double*, double** %21
br label %23
23: ; preds = %20, %23
%24 = phi i64 [ %15, %20 ], [ %30, %23 ]
%25 = phi double [ %19, %20 ], [ %29, %23 ]
%26 = getelementptr inbounds double, double* %22, i64 %24
%27 = load double, double* %26
%28 = fcmp ogt double %27, %25
%29 = select i1 %28, double %27, double %25
%30 = add i64 %24, 1
%31 = icmp sgt i64 %30, %4
br i1 %31, label %32, label %23
32: ; preds = %23, %17
%33 = phi double [ %19, %17 ], [ %29, %23 ]
%34 = add i64 %18, 1
%35 = icmp sgt i64 %34, %2
br i1 %35, label %36, label %17
36: ; preds = %32, %5
%37 = phi double [ %9, %5 ], [ %33, %32 ]
ret double %37
}