double s2uhf_cont(int M, int Na, int Nb, double *Sab) {
  double ds = Nb;
  for (int i = 0; i < Na; i++) {
    for (int j = 0; j < Nb; j++) {
      ds -= Sab[i * M + j] * Sab[i * M + j];
    }
  }
  return ds;
}


x86 assembly (clang, -O0):
<s2uhf_cont>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %edx,-0xc(%rbp)
mov    %rcx,-0x18(%rbp)
cvtsi2sdl -0xc(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11b7 <s2uhf_cont+0xb7>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11a4 <s2uhf_cont+0xa4>
mov    -0x18(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0x4(%rbp),%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0x4(%rbp),%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x20(%rbp),%xmm1
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1135 <s2uhf_cont+0x35>
jmp    11a9 <s2uhf_cont+0xa9>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1122 <s2uhf_cont+0x22>
movsd  -0x20(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<s2uhf_cont>:
push   %r14
push   %rbx
cvtsi2sd %edx,%xmm0
test   %esi,%esi
jle    11cb <s2uhf_cont+0xcb>
movslq %edi,%r10
mov    %esi,%r9d
mov    %edx,%r14d
lea    -0x1(%r14),%r8
mov    %r14d,%edi
and    $0x3,%edi
and    $0xfffffffc,%r14d
lea    0x18(%rcx),%rax
shl    $0x3,%r10
xor    %r11d,%r11d
jmp    114f <s2uhf_cont+0x4f>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x1,%r11
add    %r10,%rax
add    %r10,%rcx
cmp    %r9,%r11
je     11cb <s2uhf_cont+0xcb>
test   %edx,%edx
jle    1140 <s2uhf_cont+0x40>
xor    %ebx,%ebx
cmp    $0x3,%r8
jb     11a0 <s2uhf_cont+0xa0>
nopl   0x0(%rax,%rax,1)
movsd  -0x18(%rax,%rbx,8),%xmm1
movsd  -0x10(%rax,%rbx,8),%xmm2
mulsd  %xmm1,%xmm1
subsd  %xmm1,%xmm0
mulsd  %xmm2,%xmm2
subsd  %xmm2,%xmm0
movsd  -0x8(%rax,%rbx,8),%xmm1
mulsd  %xmm1,%xmm1
subsd  %xmm1,%xmm0
movsd  (%rax,%rbx,8),%xmm1
mulsd  %xmm1,%xmm1
subsd  %xmm1,%xmm0
add    $0x4,%rbx
cmp    %rbx,%r14
jne    1160 <s2uhf_cont+0x60>
test   %rdi,%rdi
je     1140 <s2uhf_cont+0x40>
lea    (%rcx,%rbx,8),%rbx
xor    %esi,%esi
nopl   0x0(%rax,%rax,1)
movsd  (%rbx,%rsi,8),%xmm1
mulsd  %xmm1,%xmm1
subsd  %xmm1,%xmm0
add    $0x1,%rsi
cmp    %rsi,%rdi
jne    11b0 <s2uhf_cont+0xb0>
jmp    1140 <s2uhf_cont+0x40>
pop    %rbx
pop    %r14
ret

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

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