double somx2(double **a, long stop) {
  long i, j;
  double ret = 0;
  for (i = 0; i < stop; i++)
    for (j = 0; j <= i; j++)
      ret += a[i][j] * a[i][j];
  return ret;
}


x86 assembly (clang, -O0):
<somx2>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x28(%rbp)
movq   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    11a3 <somx2+0xa3>
movq   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x18(%rbp),%rax
jg     118d <somx2+0x8d>
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
movsd  -0x28(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    1132 <somx2+0x32>
jmp    1192 <somx2+0x92>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    111c <somx2+0x1c>
movsd  -0x28(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<somx2>:
xorpd  %xmm0,%xmm0
test   %rsi,%rsi
jle    11cb <somx2+0xcb>
mov    $0x1,%r8d
xor    %r9d,%r9d
jmp    1131 <somx2+0x31>
nopl   0x0(%rax,%rax,1)
add    $0x1,%r9
add    $0x1,%r8
cmp    %rsi,%r9
je     11cb <somx2+0xcb>
mov    (%rdi,%r9,8),%rdx
cmp    $0x3,%r9
jae    1140 <somx2+0x40>
xor    %eax,%eax
jmp    1190 <somx2+0x90>
nop
mov    %r8,%rcx
and    $0xfffffffffffffffc,%rcx
xor    %eax,%eax
nopl   0x0(%rax)
movsd  (%rdx,%rax,8),%xmm1
movsd  0x8(%rdx,%rax,8),%xmm2
mulsd  %xmm1,%xmm1
addsd  %xmm0,%xmm1
mulsd  %xmm2,%xmm2
addsd  %xmm1,%xmm2
movsd  0x10(%rdx,%rax,8),%xmm1
mulsd  %xmm1,%xmm1
addsd  %xmm2,%xmm1
movsd  0x18(%rdx,%rax,8),%xmm0
mulsd  %xmm0,%xmm0
addsd  %xmm1,%xmm0
add    $0x4,%rax
cmp    %rax,%rcx
jne    1150 <somx2+0x50>
test   $0x3,%r8b
je     1120 <somx2+0x20>
mov    %r8d,%ecx
and    $0x3,%ecx
lea    (%rdx,%rax,8),%rax
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsd  (%rax,%rdx,8),%xmm1
mulsd  %xmm1,%xmm1
addsd  %xmm1,%xmm0
add    $0x1,%rdx
cmp    %rdx,%rcx
jne    11b0 <somx2+0xb0>
jmp    1120 <somx2+0x20>
ret

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

LLVM IR (-O2):
define double @somx2(double** nocapture %0, i64 %1) {
%3 = icmp sgt i64 %1, 0
br i1 %3, label %4, label %56
4: ; preds = %2, %51
%5 = phi i64 [ %54, %51 ], [ 1, %2 ]
%6 = phi double [ %52, %51 ], [ 0.000000e+00, %2 ]
%7 = phi i64 [ %53, %51 ], [ 0, %2 ]
%8 = getelementptr inbounds double*, double** %0, i64 %7
%9 = load double*, double** %8
%10 = and i64 %5, 3
%11 = icmp ult i64 %7, 3
br i1 %11, label %36, label %12
12: ; preds = %4
%13 = and i64 %5, -4
br label %14
14: ; preds = %14, %12
%15 = phi double [ %6, %12 ], [ %32, %14 ]
%16 = phi i64 [ 0, %12 ], [ %33, %14 ]
%17 = phi i64 [ 0, %12 ], [ %34, %14 ]
%18 = getelementptr inbounds double, double* %9, i64 %16
%19 = load double, double* %18
%20 = tail call double @llvm.fmuladd.f64(double %19, double %19, double %15)
%21 = or i64 %16, 1
%22 = getelementptr inbounds double, double* %9, i64 %21
%23 = load double, double* %22
%24 = tail call double @llvm.fmuladd.f64(double %23, double %23, double %20)
%25 = or i64 %16, 2
%26 = getelementptr inbounds double, double* %9, i64 %25
%27 = load double, double* %26
%28 = tail call double @llvm.fmuladd.f64(double %27, double %27, double %24)
%29 = or i64 %16, 3
%30 = getelementptr inbounds double, double* %9, i64 %29
%31 = load double, double* %30
%32 = tail call double @llvm.fmuladd.f64(double %31, double %31, double %28)
%33 = add nuw nsw i64 %16, 4
%34 = add i64 %17, 4
%35 = icmp eq i64 %34, %13
br i1 %35, label %36, label %14
36: ; preds = %14, %4
%37 = phi double [ undef, %4 ], [ %32, %14 ]
%38 = phi double [ %6, %4 ], [ %32, %14 ]
%39 = phi i64 [ 0, %4 ], [ %33, %14 ]
%40 = icmp eq i64 %10, 0
br i1 %40, label %51, label %41
41: ; preds = %36, %41
%42 = phi double [ %47, %41 ], [ %38, %36 ]
%43 = phi i64 [ %48, %41 ], [ %39, %36 ]
%44 = phi i64 [ %49, %41 ], [ 0, %36 ]
%45 = getelementptr inbounds double, double* %9, i64 %43
%46 = load double, double* %45
%47 = tail call double @llvm.fmuladd.f64(double %46, double %46, double %42)
%48 = add nuw nsw i64 %43, 1
%49 = add i64 %44, 1
%50 = icmp eq i64 %49, %10
br i1 %50, label %51, label %41
51: ; preds = %41, %36
%52 = phi double [ %37, %36 ], [ %47, %41 ]
%53 = add nuw nsw i64 %7, 1
%54 = add nuw i64 %5, 1
%55 = icmp eq i64 %53, %1
br i1 %55, label %56, label %4
56: ; preds = %51, %2
%57 = phi double [ 0.000000e+00, %2 ], [ %52, %51 ]
ret double %57
}