double norm(const double *src, int nrows, int ncols, int ld) {
  int i, j;
  double result = 0, comp = 0;
  for (i = 0; i < ncols; ++i) {
    for (j = 0; j < nrows; ++j) {
      const int k = i * ld + j;
      const double v = src[k], a = (0 <= v ? v : -v) - comp, b = result + a;
      comp = (b - result) - a;
      result = b;
    }
  }
  return result;
}


x86 assembly (clang, -O0):
<norm>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x30(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    1205 <norm+0x105>
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11f2 <norm+0xf2>
mov    -0x18(%rbp),%eax
imul   -0x14(%rbp),%eax
add    -0x1c(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x34(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x40(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1187 <norm+0x87>
movsd  -0x40(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
jmp    11a8 <norm+0xa8>
movsd  -0x40(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x58(%rbp),%xmm0
subsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x28(%rbp),%xmm0
addsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm0
subsd  -0x28(%rbp),%xmm0
subsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    113b <norm+0x3b>
jmp    11f7 <norm+0xf7>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1128 <norm+0x28>
movsd  -0x28(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<norm>:
push   %r14
push   %rbx
test   %edx,%edx
jle    1245 <norm+0x145>
movslq %ecx,%r8
mov    %edx,%r10d
mov    %esi,%r9d
mov    %r9d,%edx
and    $0xfffffffe,%edx
lea    0x8(%rdi),%rax
lea    0x0(,%r8,8),%r11
xorpd  %xmm0,%xmm0
xor    %r14d,%r14d
movapd 0xecb(%rip),%xmm1
movapd 0xec3(%rip),%xmm2
xorpd  %xmm3,%xmm3
jmp    1160 <norm+0x60>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x1,%r14
add    %r11,%rax
cmp    %r10,%r14
je     1249 <norm+0x149>
test   %esi,%esi
jle    1150 <norm+0x50>
xor    %ebx,%ebx
cmp    $0x1,%esi
je     11ee <norm+0xee>
nop
movsd  -0x8(%rax,%rbx,8),%xmm4
movsd  (%rax,%rbx,8),%xmm5
movapd %xmm4,%xmm6
xorpd  %xmm2,%xmm6
xorpd  %xmm7,%xmm7
cmplesd %xmm4,%xmm7
andpd  %xmm7,%xmm4
andnpd %xmm6,%xmm7
orpd   %xmm4,%xmm7
subsd  %xmm3,%xmm7
movapd %xmm0,%xmm4
addsd  %xmm7,%xmm4
movapd %xmm4,%xmm3
subsd  %xmm0,%xmm3
subsd  %xmm7,%xmm3
movapd %xmm5,%xmm0
xorpd  %xmm2,%xmm0
xorpd  %xmm6,%xmm6
cmplesd %xmm5,%xmm6
andpd  %xmm6,%xmm5
andnpd %xmm0,%xmm6
orpd   %xmm5,%xmm6
subsd  %xmm3,%xmm6
movapd %xmm4,%xmm0
addsd  %xmm6,%xmm0
movapd %xmm0,%xmm3
subsd  %xmm4,%xmm3
subsd  %xmm6,%xmm3
add    $0x2,%rbx
cmp    %rbx,%rdx
jne    1170 <norm+0x70>
test   $0x1,%r9b
je     1150 <norm+0x50>
mov    %r14,%rcx
imul   %r8,%rcx
add    %rcx,%rbx
movsd  (%rdi,%rbx,8),%xmm4
movapd %xmm4,%xmm5
xorpd  %xmm1,%xmm5
xorpd  %xmm6,%xmm6
cmplesd %xmm4,%xmm6
andpd  %xmm6,%xmm4
andnpd %xmm5,%xmm6
orpd   %xmm4,%xmm6
subsd  %xmm3,%xmm6
movapd %xmm0,%xmm4
addsd  %xmm6,%xmm4
movapd %xmm4,%xmm3
subsd  %xmm0,%xmm3
subsd  %xmm6,%xmm3
movapd %xmm4,%xmm0
jmp    1150 <norm+0x50>
xorpd  %xmm0,%xmm0
pop    %rbx
pop    %r14
ret

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

LLVM IR (-O2):
define double @norm(double* nocapture %0, i32 %1, i32 %2, i32 %3) {
%5 = icmp sgt i32 %2, 0
br i1 %5, label %6, label %72
6: ; preds = %4
%7 = icmp sgt i32 %1, 0
%8 = sext i32 %3 to i64
%9 = zext i32 %2 to i64
%10 = zext i32 %1 to i64
%11 = and i64 %10, 1
%12 = icmp eq i32 %1, 1
%13 = and i64 %10, 4294967294
%14 = icmp eq i64 %11, 0
br label %15
15: ; preds = %6, %67
%16 = phi i64 [ 0, %6 ], [ %70, %67 ]
%17 = phi double [ 0.000000e+00, %6 ], [ %69, %67 ]
%18 = phi double [ 0.000000e+00, %6 ], [ %68, %67 ]
br i1 %7, label %19, label %67
19: ; preds = %15
%20 = mul nsw i64 %16, %8
br i1 %12, label %50, label %21
21: ; preds = %19, %21
%22 = phi i64 [ %47, %21 ], [ 0, %19 ]
%23 = phi double [ %44, %21 ], [ %17, %19 ]
%24 = phi double [ %46, %21 ], [ %18, %19 ]
%25 = phi i64 [ %48, %21 ], [ 0, %19 ]
%26 = add nsw i64 %22, %20
%27 = getelementptr inbounds double, double* %0, i64 %26
%28 = load double, double* %27
%29 = fcmp oge double %28, 0.000000e+00
%30 = fneg double %28
%31 = select i1 %29, double %28, double %30
%32 = fsub double %31, %24
%33 = fadd double %23, %32
%34 = fsub double %33, %23
%35 = fsub double %34, %32
%36 = or i64 %22, 1
%37 = add nsw i64 %36, %20
%38 = getelementptr inbounds double, double* %0, i64 %37
%39 = load double, double* %38
%40 = fcmp oge double %39, 0.000000e+00
%41 = fneg double %39
%42 = select i1 %40, double %39, double %41
%43 = fsub double %42, %35
%44 = fadd double %33, %43
%45 = fsub double %44, %33
%46 = fsub double %45, %43
%47 = add nuw nsw i64 %22, 2
%48 = add i64 %25, 2
%49 = icmp eq i64 %48, %13
br i1 %49, label %50, label %21
50: ; preds = %21, %19
%51 = phi double [ undef, %19 ], [ %44, %21 ]
%52 = phi double [ undef, %19 ], [ %46, %21 ]
%53 = phi i64 [ 0, %19 ], [ %47, %21 ]
%54 = phi double [ %17, %19 ], [ %44, %21 ]
%55 = phi double [ %18, %19 ], [ %46, %21 ]
br i1 %14, label %67, label %56
56: ; preds = %50
%57 = add nsw i64 %53, %20
%58 = getelementptr inbounds double, double* %0, i64 %57
%59 = load double, double* %58
%60 = fcmp oge double %59, 0.000000e+00
%61 = fneg double %59
%62 = select i1 %60, double %59, double %61
%63 = fsub double %62, %55
%64 = fadd double %54, %63
%65 = fsub double %64, %54
%66 = fsub double %65, %63
br label %67
67: ; preds = %56, %50, %15
%68 = phi double [ %18, %15 ], [ %52, %50 ], [ %66, %56 ]
%69 = phi double [ %17, %15 ], [ %51, %50 ], [ %64, %56 ]
%70 = add nuw nsw i64 %16, 1
%71 = icmp eq i64 %70, %9
br i1 %71, label %72, label %15
72: ; preds = %67, %4
%73 = phi double [ 0.000000e+00, %4 ], [ %69, %67 ]
ret double %73
}