void modbt7(double *p, double *x, int m, int n, void *data) {
  register int i;
  for (i = 0; i < n; ++i)
    x[i] = 100.0 * (p[1] - p[0] * p[0]) * (p[1] - p[0] * p[0]) +
           (p[0] - 1.0) * (p[0] - 1.0);
}


x86 assembly (clang, -O0):
<modbt7>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    %r8,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    11f4 <modbt7+0xf4>
mov    -0x8(%rbp),%rax
movsd  0x8(%rax),%xmm0
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm1
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm2
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm1
addsd  %xmm0,%xmm1
movsd  0xe9f(%rip),%xmm0
mulsd  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
movsd  0x8(%rax),%xmm1
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm2
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm3
movq   %xmm2,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm2
mulsd  %xmm3,%xmm2
addsd  %xmm1,%xmm2
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm1
movsd  0xe4b(%rip),%xmm3
subsd  %xmm3,%xmm1
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm3
movsd  0xe37(%rip),%xmm4
subsd  %xmm4,%xmm3
mulsd  %xmm3,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    111d <modbt7+0x1d>
pop    %rbp
ret

x86 assembly (clang, -O2):
<modbt7>:
test   %ecx,%ecx
jle    1257 <modbt7+0x157>
mov    %ecx,%eax
cmp    $0x1,%ecx
je     1129 <modbt7+0x29>
lea    0x10(%rdi),%rcx
cmp    %rsi,%rcx
jbe    1200 <modbt7+0x100>
lea    (%rsi,%rax,8),%rcx
cmp    %rdi,%rcx
jbe    1200 <modbt7+0x100>
xor    %ecx,%ecx
mov    %rcx,%rdx
not    %rdx
test   $0x1,%al
je     1173 <modbt7+0x73>
movsd  (%rdi),%xmm0
movsd  0x8(%rdi),%xmm1
movapd %xmm0,%xmm2
mulsd  %xmm0,%xmm2
subsd  %xmm2,%xmm1
movsd  0xeae(%rip),%xmm2
mulsd  %xmm1,%xmm2
addsd  0xeaa(%rip),%xmm0
mulsd  %xmm0,%xmm0
mulsd  %xmm1,%xmm2
addsd  %xmm0,%xmm2
movsd  %xmm2,(%rsi,%rcx,8)
or     $0x1,%rcx
add    %rax,%rdx
je     1257 <modbt7+0x157>
movsd  0xe7c(%rip),%xmm0
movsd  0xe7c(%rip),%xmm1
nopl   0x0(%rax)
movsd  (%rdi),%xmm2
movsd  0x8(%rdi),%xmm3
movapd %xmm2,%xmm4
mulsd  %xmm2,%xmm4
subsd  %xmm4,%xmm3
movapd %xmm3,%xmm4
mulsd  %xmm0,%xmm4
addsd  %xmm1,%xmm2
mulsd  %xmm2,%xmm2
mulsd  %xmm3,%xmm4
addsd  %xmm2,%xmm4
movsd  %xmm4,(%rsi,%rcx,8)
movsd  (%rdi),%xmm2
movsd  0x8(%rdi),%xmm3
movapd %xmm2,%xmm4
mulsd  %xmm2,%xmm4
subsd  %xmm4,%xmm3
movapd %xmm3,%xmm4
mulsd  %xmm0,%xmm4
addsd  %xmm1,%xmm2
mulsd  %xmm2,%xmm2
mulsd  %xmm3,%xmm4
addsd  %xmm2,%xmm4
movsd  %xmm4,0x8(%rsi,%rcx,8)
add    $0x2,%rcx
cmp    %rcx,%rax
jne    1190 <modbt7+0x90>
jmp    1257 <modbt7+0x157>
mov    %eax,%ecx
and    $0xfffffffe,%ecx
movsd  (%rdi),%xmm1
movsd  0x8(%rdi),%xmm2
movapd %xmm1,%xmm0
mulsd  %xmm1,%xmm0
subsd  %xmm0,%xmm2
movsd  0xdde(%rip),%xmm0
mulsd  %xmm2,%xmm0
addsd  0xdda(%rip),%xmm1
mulsd  %xmm1,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
unpcklpd %xmm0,%xmm0
xor    %edx,%edx
movupd %xmm0,(%rsi,%rdx,8)
add    $0x2,%rdx
cmp    %rdx,%rcx
jne    1240 <modbt7+0x140>
cmp    %rax,%rcx
jne    112b <modbt7+0x2b>
ret

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

LLVM IR (-O2):
define void @modbt7(double* nocapture %0, double* nocapture writeonly %1, i32 %2, i32 %3, i8* nocapture readnone %4) {
%6 = icmp sgt i32 %3, 0
br i1 %6, label %7, label %82
7: ; preds = %5
%8 = getelementptr inbounds double, double* %0, i64 1
%9 = zext i32 %3 to i64
%10 = icmp eq i32 %3, 1
br i1 %10, label %39, label %11
11: ; preds = %7
%12 = getelementptr double, double* %1, i64 %9
%13 = getelementptr double, double* %0, i64 2
%14 = icmp ugt double* %13, %1
%15 = icmp ugt double* %12, %0
%16 = and i1 %14, %15
br i1 %16, label %39, label %17
17: ; preds = %11
%18 = and i64 %9, 4294967294
%19 = load double, double* %8
%20 = insertelement <2 x double> poison, double %19, i64 0
%21 = shufflevector <2 x double> %20, <2 x double> poison, <2 x i32> zeroinitializer
%22 = load double, double* %0
%23 = insertelement <2 x double> poison, double %22, i64 0
%24 = shufflevector <2 x double> %23, <2 x double> poison, <2 x i32> zeroinitializer
%25 = fneg <2 x double> %24
%26 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %25, <2 x double> %24, <2 x double> %21)
%27 = fmul <2 x double> %26, <double 1.000000e+02, double 1.000000e+02>
%28 = fadd <2 x double> %24, <double -1.000000e+00, double -1.000000e+00>
%29 = fmul <2 x double> %28, %28
%30 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %27, <2 x double> %26, <2 x double> %29)
br label %31
31: ; preds = %31, %17
%32 = phi i64 [ 0, %17 ], [ %35, %31 ]
%33 = getelementptr inbounds double, double* %1, i64 %32
%34 = bitcast double* %33 to <2 x double>*
store <2 x double> %30, <2 x double>* %34
%35 = add nuw i64 %32, 2
%36 = icmp eq i64 %35, %18
br i1 %36, label %37, label %31
37: ; preds = %31
%38 = icmp eq i64 %18, %9
br i1 %38, label %82, label %39
39: ; preds = %11, %7, %37
%40 = phi i64 [ 0, %11 ], [ 0, %7 ], [ %18, %37 ]
%41 = xor i64 %40, -1
%42 = and i64 %9, 1
%43 = icmp eq i64 %42, 0
br i1 %43, label %55, label %44
44: ; preds = %39
%45 = load double, double* %8
%46 = load double, double* %0
%47 = fneg double %46
%48 = tail call double @llvm.fmuladd.f64(double %47, double %46, double %45)
%49 = fmul double %48, 1.000000e+02
%50 = fadd double %46, -1.000000e+00
%51 = fmul double %50, %50
%52 = tail call double @llvm.fmuladd.f64(double %49, double %48, double %51)
%53 = getelementptr inbounds double, double* %1, i64 %40
store double %52, double* %53
%54 = or i64 %40, 1
br label %55
55: ; preds = %44, %39
%56 = phi i64 [ %40, %39 ], [ %54, %44 ]
%57 = sub nsw i64 0, %9
%58 = icmp eq i64 %41, %57
br i1 %58, label %82, label %59
59: ; preds = %55, %59
%60 = phi i64 [ %80, %59 ], [ %56, %55 ]
%61 = load double, double* %8
%62 = load double, double* %0
%63 = fneg double %62
%64 = tail call double @llvm.fmuladd.f64(double %63, double %62, double %61)
%65 = fmul double %64, 1.000000e+02
%66 = fadd double %62, -1.000000e+00
%67 = fmul double %66, %66
%68 = tail call double @llvm.fmuladd.f64(double %65, double %64, double %67)
%69 = getelementptr inbounds double, double* %1, i64 %60
store double %68, double* %69
%70 = add nuw nsw i64 %60, 1
%71 = load double, double* %8
%72 = load double, double* %0
%73 = fneg double %72
%74 = tail call double @llvm.fmuladd.f64(double %73, double %72, double %71)
%75 = fmul double %74, 1.000000e+02
%76 = fadd double %72, -1.000000e+00
%77 = fmul double %76, %76
%78 = tail call double @llvm.fmuladd.f64(double %75, double %74, double %77)
%79 = getelementptr inbounds double, double* %1, i64 %70
store double %78, double* %79
%80 = add nuw nsw i64 %60, 2
%81 = icmp eq i64 %80, %9
br i1 %81, label %82, label %59
82: ; preds = %55, %59, %37, %5
ret void
}