void flag_invalid(double *world, int n, int ndims, int *stat, double flag) {
  int i, j;
  for (i = 0; i < n; i++) {
    if (stat[i]) {
      register int offset = ndims * i;
      for (j = 0; j < ndims; j++) {
        world[offset + j] = flag;
      }
    }
  }
}


x86 assembly (clang, -O0):
<flag_invalid>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
movsd  %xmm0,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1196 <flag_invalid+0x96>
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
cmpl   $0x0,(%rax,%rcx,4)
je     1183 <flag_invalid+0x83>
mov    -0x10(%rbp),%eax
imul   -0x24(%rbp),%eax
mov    %eax,-0x2c(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
cmp    -0x10(%rbp),%eax
jge    117e <flag_invalid+0x7e>
movsd  -0x20(%rbp),%xmm0
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    114d <flag_invalid+0x4d>
jmp    1183 <flag_invalid+0x83>
jmp    1188 <flag_invalid+0x88>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    111e <flag_invalid+0x1e>
pop    %rbp
ret

x86 assembly (clang, -O2):
<flag_invalid>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %esi,%esi
jle    1223 <flag_invalid+0x123>
movslq %edx,%r15
mov    %esi,%r8d
mov    %r15d,%esi
mov    %esi,%r9d
and    $0xfffffffc,%r9d
lea    -0x4(%r9),%r10
mov    %r10,-0x8(%rsp)
shr    $0x2,%r10
add    $0x1,%r10
movaps %xmm0,%xmm1
movlhps %xmm0,%xmm1
mov    %r10d,%r12d
and    $0x3,%r12d
and    $0xfffffffffffffffc,%r10
lea    0x70(%rdi),%rbx
shl    $0x3,%r15
lea    0x10(%rdi),%r13
mov    %r12,-0x10(%rsp)
shl    $0x5,%r12
xor    %r14d,%r14d
jmp    1176 <flag_invalid+0x76>
xchg   %ax,%ax
add    $0x1,%r14
add    %r15,%rbx
add    %r15,%r13
add    %r15,%rdi
cmp    %r8,%r14
je     1223 <flag_invalid+0x123>
cmpl   $0x0,(%rcx,%r14,4)
je     1160 <flag_invalid+0x60>
test   %edx,%edx
jle    1160 <flag_invalid+0x60>
cmp    $0x4,%edx
jae    118d <flag_invalid+0x8d>
xor    %ebp,%ebp
jmp    1210 <flag_invalid+0x110>
cmpq   $0xc,-0x8(%rsp)
jae    1199 <flag_invalid+0x99>
xor    %ebp,%ebp
jmp    11d1 <flag_invalid+0xd1>
mov    %r10,%r11
xor    %ebp,%ebp
xchg   %ax,%ax
movups %xmm1,-0x70(%rbx,%rbp,8)
movups %xmm1,-0x60(%rbx,%rbp,8)
movups %xmm1,-0x50(%rbx,%rbp,8)
movups %xmm1,-0x40(%rbx,%rbp,8)
movups %xmm1,-0x30(%rbx,%rbp,8)
movups %xmm1,-0x20(%rbx,%rbp,8)
movups %xmm1,-0x10(%rbx,%rbp,8)
movups %xmm1,(%rbx,%rbp,8)
add    $0x10,%rbp
add    $0xfffffffffffffffc,%r11
jne    11a0 <flag_invalid+0xa0>
cmpq   $0x0,-0x10(%rsp)
je     1203 <flag_invalid+0x103>
lea    0x0(,%rbp,8),%rbp
add    %r13,%rbp
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
movups %xmm1,-0x10(%rbp,%rax,1)
movups %xmm1,0x0(%rbp,%rax,1)
add    $0x20,%rax
cmp    %rax,%r12
jne    11f0 <flag_invalid+0xf0>
mov    %r9,%rbp
cmp    %rsi,%r9
je     1160 <flag_invalid+0x60>
nop
movsd  %xmm0,(%rdi,%rbp,8)
add    $0x1,%rbp
cmp    %rbp,%rsi
jne    1210 <flag_invalid+0x110>
jmp    1160 <flag_invalid+0x60>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @flag_invalid(double* nocapture writeonly %0, i32 %1, i32 %2, i32* nocapture %3, double %4) {
%6 = icmp sgt i32 %1, 0
br i1 %6, label %7, label %90
7: ; preds = %5
%8 = icmp sgt i32 %2, 0
%9 = sext i32 %2 to i64
%10 = zext i32 %1 to i64
%11 = zext i32 %2 to i64
%12 = and i64 %11, 4294967292
%13 = add nsw i64 %12, -4
%14 = lshr exact i64 %13, 2
%15 = add nuw nsw i64 %14, 1
%16 = icmp ult i32 %2, 4
%17 = and i64 %11, 4294967292
%18 = insertelement <2 x double> poison, double %4, i64 0
%19 = shufflevector <2 x double> %18, <2 x double> poison, <2 x i32> zeroinitializer
%20 = insertelement <2 x double> poison, double %4, i64 0
%21 = shufflevector <2 x double> %20, <2 x double> poison, <2 x i32> zeroinitializer
%22 = and i64 %15, 3
%23 = icmp ult i64 %13, 12
%24 = and i64 %15, 9223372036854775804
%25 = icmp eq i64 %22, 0
%26 = icmp eq i64 %17, %11
br label %27
27: ; preds = %7, %87
%28 = phi i64 [ 0, %7 ], [ %88, %87 ]
%29 = getelementptr inbounds i32, i32* %3, i64 %28
%30 = load i32, i32* %29
%31 = icmp eq i32 %30, 0
br i1 %31, label %87, label %32
32: ; preds = %27
%33 = mul nsw i64 %28, %9
br i1 %8, label %34, label %87
34: ; preds = %32
br i1 %16, label %79, label %35
35: ; preds = %34
br i1 %23, label %65, label %36
36: ; preds = %35, %36
%37 = phi i64 [ %62, %36 ], [ 0, %35 ]
%38 = phi i64 [ %63, %36 ], [ 0, %35 ]
%39 = add nsw i64 %37, %33
%40 = getelementptr inbounds double, double* %0, i64 %39
%41 = bitcast double* %40 to <2 x double>*
store <2 x double> %19, <2 x double>* %41
%42 = getelementptr inbounds double, double* %40, i64 2
%43 = bitcast double* %42 to <2 x double>*
store <2 x double> %21, <2 x double>* %43
%44 = or i64 %37, 4
%45 = add nsw i64 %44, %33
%46 = getelementptr inbounds double, double* %0, i64 %45
%47 = bitcast double* %46 to <2 x double>*
store <2 x double> %19, <2 x double>* %47
%48 = getelementptr inbounds double, double* %46, i64 2
%49 = bitcast double* %48 to <2 x double>*
store <2 x double> %21, <2 x double>* %49
%50 = or i64 %37, 8
%51 = add nsw i64 %50, %33
%52 = getelementptr inbounds double, double* %0, i64 %51
%53 = bitcast double* %52 to <2 x double>*
store <2 x double> %19, <2 x double>* %53
%54 = getelementptr inbounds double, double* %52, i64 2
%55 = bitcast double* %54 to <2 x double>*
store <2 x double> %21, <2 x double>* %55
%56 = or i64 %37, 12
%57 = add nsw i64 %56, %33
%58 = getelementptr inbounds double, double* %0, i64 %57
%59 = bitcast double* %58 to <2 x double>*
store <2 x double> %19, <2 x double>* %59
%60 = getelementptr inbounds double, double* %58, i64 2
%61 = bitcast double* %60 to <2 x double>*
store <2 x double> %21, <2 x double>* %61
%62 = add nuw i64 %37, 16
%63 = add nuw i64 %38, 4
%64 = icmp eq i64 %63, %24
br i1 %64, label %65, label %36
65: ; preds = %36, %35
%66 = phi i64 [ 0, %35 ], [ %62, %36 ]
br i1 %25, label %78, label %67
67: ; preds = %65, %67
%68 = phi i64 [ %75, %67 ], [ %66, %65 ]
%69 = phi i64 [ %76, %67 ], [ 0, %65 ]
%70 = add nsw i64 %68, %33
%71 = getelementptr inbounds double, double* %0, i64 %70
%72 = bitcast double* %71 to <2 x double>*
store <2 x double> %19, <2 x double>* %72
%73 = getelementptr inbounds double, double* %71, i64 2
%74 = bitcast double* %73 to <2 x double>*
store <2 x double> %21, <2 x double>* %74
%75 = add nuw i64 %68, 4
%76 = add i64 %69, 1
%77 = icmp eq i64 %76, %22
br i1 %77, label %78, label %67
78: ; preds = %67, %65
br i1 %26, label %87, label %79
79: ; preds = %34, %78
%80 = phi i64 [ 0, %34 ], [ %17, %78 ]
br label %81
81: ; preds = %79, %81
%82 = phi i64 [ %85, %81 ], [ %80, %79 ]
%83 = add nsw i64 %82, %33
%84 = getelementptr inbounds double, double* %0, i64 %83
store double %4, double* %84
%85 = add nuw nsw i64 %82, 1
%86 = icmp eq i64 %85, %11
br i1 %86, label %87, label %81
87: ; preds = %81, %78, %32, %27
%88 = add nuw nsw i64 %28, 1
%89 = icmp eq i64 %88, %10
br i1 %89, label %90, label %27
90: ; preds = %87, %5
ret void
}