void transpose_scalar_block(float *const A, float *const B, const int lda,
                            const int ldb, const int block_size) {
#pragma omp parallel for
  for (int i = 0; i < block_size; i++) {
    for (int j = 0; j < block_size; j++) {
      B[j * ldb + i] = A[i * lda + j];
    }
  }
}


x86 assembly (clang, -O0):
<transpose_scalar_block>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    %r8d,-0x1c(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1189 <transpose_scalar_block+0x89>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1176 <transpose_scalar_block+0x76>
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%ecx
imul   -0x14(%rbp),%ecx
add    -0x24(%rbp),%ecx
movslq %ecx,%rcx
movss  (%rax,%rcx,4),%xmm0
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
imul   -0x18(%rbp),%ecx
add    -0x20(%rbp),%ecx
movslq %ecx,%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1130 <transpose_scalar_block+0x30>
jmp    117b <transpose_scalar_block+0x7b>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    111d <transpose_scalar_block+0x1d>
pop    %rbp
ret

x86 assembly (clang, -O2):
<transpose_scalar_block>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
test   %r8d,%r8d
jle    136b <transpose_scalar_block+0x26b>
mov    %rsi,%r12
movslq %ecx,%rcx
movslq %edx,%rdx
mov    %r8d,%r10d
mov    %r10d,%eax
and    $0xfffffff8,%eax
mov    %rax,-0x28(%rsp)
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x30(%rsp)
mov    %rax,%rsi
shr    $0x3,%rsi
add    $0x1,%rsi
cmp    $0x8,%r8d
setae  %al
cmp    $0x1,%ecx
sete   %bl
and    %al,%bl
mov    %bl,-0x51(%rsp)
mov    %rsi,%rax
mov    %rsi,-0x38(%rsp)
and    $0xfffffffffffffffe,%rsi
mov    %rsi,-0x48(%rsp)
mov    %r10,%rax
neg    %rax
mov    %rax,-0x18(%rsp)
lea    0x30(%rdi),%rbx
mov    %rdx,-0x8(%rsp)
lea    0x0(,%rdx,4),%rax
mov    %rax,-0x10(%rsp)
mov    %rcx,%r13
shl    $0x5,%r13
lea    0x10(%r12),%rsi
mov    %rcx,%rax
shl    $0x6,%rax
mov    %rax,-0x40(%rsp)
lea    0x0(,%rcx,8),%r8
lea    0x4(%rdi),%r11
mov    %rcx,-0x50(%rsp)
lea    0x0(,%rcx,4),%rax
mov    %rax,-0x20(%rsp)
xor    %r9d,%r9d
xor    %r14d,%r14d
jmp    11f0 <transpose_scalar_block+0xf0>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
add    $0x1,%r14
mov    -0x10(%rsp),%rax
add    %rax,%rbx
add    $0x4,%rsi
add    %rax,%r11
add    $0x4,%r9
cmp    %r10,%r14
je     136b <transpose_scalar_block+0x26b>
mov    %r14,%r15
imul   -0x8(%rsp),%r15
cmpb   $0x0,-0x51(%rsp)
je     122a <transpose_scalar_block+0x12a>
lea    (%r15,%r10,1),%rcx
lea    (%rdi,%rcx,4),%rcx
lea    (%r12,%r14,4),%rax
cmp    %rcx,%rax
jae    12c0 <transpose_scalar_block+0x1c0>
lea    (%rdi,%r15,4),%rcx
lea    (%r14,%r10,1),%rax
lea    (%r12,%rax,4),%rax
cmp    %rax,%rcx
jae    12c0 <transpose_scalar_block+0x1c0>
xor    %ebp,%ebp
mov    %rbp,%rcx
test   $0x1,%r10b
je     1257 <transpose_scalar_block+0x157>
add    %rbp,%r15
movss  (%rdi,%r15,4),%xmm0
mov    %rbp,%rcx
imul   -0x50(%rsp),%rcx
add    %r14,%rcx
movss  %xmm0,(%r12,%rcx,4)
mov    %rbp,%rcx
or     $0x1,%rcx
not    %rbp
cmp    -0x18(%rsp),%rbp
je     11d0 <transpose_scalar_block+0xd0>
mov    -0x50(%rsp),%rbp
imul   %rcx,%rbp
add    %r14,%rbp
lea    0x1(%rcx),%rdx
imul   -0x20(%rsp),%rdx
add    %r9,%rdx
mov    %r12,%rax
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movss  -0x4(%r11,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rbp,4)
movss  (%r11,%rcx,4),%xmm0
movss  %xmm0,(%rax,%rdx,1)
add    $0x2,%rcx
add    %r8,%rax
cmp    %rcx,%r10
jne    1290 <transpose_scalar_block+0x190>
jmp    11d0 <transpose_scalar_block+0xd0>
nopl   0x0(%rax,%rax,1)
mov    %r12,%rdx
cmpq   $0x0,-0x30(%rsp)
mov    -0x40(%rsp),%rax
je     135f <transpose_scalar_block+0x25f>
mov    -0x48(%rsp),%rcx
mov    %rsi,%rbp
xor    %r12d,%r12d
nop
movups -0x30(%rbx,%r12,4),%xmm0
movups -0x20(%rbx,%r12,4),%xmm1
movups %xmm0,-0x10(%rbp)
movups %xmm1,0x0(%rbp)
movups -0x10(%rbx,%r12,4),%xmm0
movups (%rbx,%r12,4),%xmm1
movups %xmm0,-0x10(%rbp,%r13,1)
movups %xmm1,0x0(%rbp,%r13,1)
add    $0x10,%r12
add    %rax,%rbp
add    $0xfffffffffffffffe,%rcx
jne    12e0 <transpose_scalar_block+0x1e0>
testb  $0x1,-0x38(%rsp)
je     1346 <transpose_scalar_block+0x246>
lea    (%r12,%r15,1),%rcx
mov    %rdi,%rax
movups (%rdi,%rcx,4),%xmm0
movups 0x10(%rdi,%rcx,4),%xmm1
imul   -0x50(%rsp),%r12
add    %r14,%r12
mov    %rdx,%rax
movups %xmm0,(%rdx,%r12,4)
movups %xmm1,0x10(%rdx,%r12,4)
mov    -0x28(%rsp),%rax
mov    %rax,%rbp
cmp    %r10,%rax
mov    %rdx,%r12
je     11d0 <transpose_scalar_block+0xd0>
jmp    122c <transpose_scalar_block+0x12c>
xor    %r12d,%r12d
testb  $0x1,-0x38(%rsp)
jne    131f <transpose_scalar_block+0x21f>
jmp    1346 <transpose_scalar_block+0x246>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define void @transpose_scalar_block(float* nocapture %0, float* nocapture writeonly %1, i32 %2, i32 %3, i32 %4) {
%6 = icmp sgt i32 %4, 0
br i1 %6, label %7, label %106
7: ; preds = %5
%8 = sext i32 %3 to i64
%9 = sext i32 %2 to i64
%10 = zext i32 %4 to i64
%11 = and i64 %10, 4294967288
%12 = add nsw i64 %11, -8
%13 = lshr exact i64 %12, 3
%14 = add nuw nsw i64 %13, 1
%15 = icmp ugt i32 %4, 7
%16 = icmp eq i32 %3, 1
%17 = and i1 %15, %16
%18 = and i64 %10, 4294967288
%19 = and i64 %14, 1
%20 = icmp eq i64 %12, 0
%21 = and i64 %14, 4611686018427387902
%22 = icmp eq i64 %19, 0
%23 = icmp eq i64 %18, %10
%24 = and i64 %10, 1
%25 = icmp eq i64 %24, 0
%26 = sub nsw i64 0, %10
br label %27
27: ; preds = %107, %7
%28 = phi i64 [ 0, %7 ], [ %108, %107 ]
%29 = mul i64 %28, %9
%30 = mul nsw i64 %28, %9
br i1 %17, label %31, label %92
31: ; preds = %27
%32 = add i64 %29, %10
%33 = getelementptr float, float* %0, i64 %32
%34 = getelementptr float, float* %0, i64 %29
%35 = add nuw i64 %28, %10
%36 = getelementptr float, float* %1, i64 %35
%37 = getelementptr float, float* %1, i64 %28
%38 = icmp ult float* %37, %33
%39 = icmp ult float* %34, %36
%40 = and i1 %38, %39
br i1 %40, label %92, label %41
41: ; preds = %31
br i1 %20, label %75, label %42
42: ; preds = %41, %42
%43 = phi i64 [ %72, %42 ], [ 0, %41 ]
%44 = phi i64 [ %73, %42 ], [ 0, %41 ]
%45 = add nsw i64 %43, %30
%46 = getelementptr inbounds float, float* %0, i64 %45
%47 = bitcast float* %46 to <4 x float>*
%48 = load <4 x float>, <4 x float>* %47
%49 = getelementptr inbounds float, float* %46, i64 4
%50 = bitcast float* %49 to <4 x float>*
%51 = load <4 x float>, <4 x float>* %50
%52 = mul nsw i64 %43, %8
%53 = add nsw i64 %52, %28
%54 = getelementptr inbounds float, float* %1, i64 %53
%55 = bitcast float* %54 to <4 x float>*
store <4 x float> %48, <4 x float>* %55
%56 = getelementptr inbounds float, float* %54, i64 4
%57 = bitcast float* %56 to <4 x float>*
store <4 x float> %51, <4 x float>* %57
%58 = or i64 %43, 8
%59 = add nsw i64 %58, %30
%60 = getelementptr inbounds float, float* %0, i64 %59
%61 = bitcast float* %60 to <4 x float>*
%62 = load <4 x float>, <4 x float>* %61
%63 = getelementptr inbounds float, float* %60, i64 4
%64 = bitcast float* %63 to <4 x float>*
%65 = load <4 x float>, <4 x float>* %64
%66 = mul nsw i64 %58, %8
%67 = add nsw i64 %66, %28
%68 = getelementptr inbounds float, float* %1, i64 %67
%69 = bitcast float* %68 to <4 x float>*
store <4 x float> %62, <4 x float>* %69
%70 = getelementptr inbounds float, float* %68, i64 4
%71 = bitcast float* %70 to <4 x float>*
store <4 x float> %65, <4 x float>* %71
%72 = add nuw i64 %43, 16
%73 = add i64 %44, 2
%74 = icmp eq i64 %73, %21
br i1 %74, label %75, label %42
75: ; preds = %42, %41
%76 = phi i64 [ 0, %41 ], [ %72, %42 ]
br i1 %22, label %91, label %77
77: ; preds = %75
%78 = add nsw i64 %76, %30
%79 = getelementptr inbounds float, float* %0, i64 %78
%80 = bitcast float* %79 to <4 x float>*
%81 = load <4 x float>, <4 x float>* %80
%82 = getelementptr inbounds float, float* %79, i64 4
%83 = bitcast float* %82 to <4 x float>*
%84 = load <4 x float>, <4 x float>* %83
%85 = mul nsw i64 %76, %8
%86 = add nsw i64 %85, %28
%87 = getelementptr inbounds float, float* %1, i64 %86
%88 = bitcast float* %87 to <4 x float>*
store <4 x float> %81, <4 x float>* %88
%89 = getelementptr inbounds float, float* %87, i64 4
%90 = bitcast float* %89 to <4 x float>*
store <4 x float> %84, <4 x float>* %90
br label %91
91: ; preds = %75, %77
br i1 %23, label %107, label %92
92: ; preds = %31, %27, %91
%93 = phi i64 [ 0, %31 ], [ 0, %27 ], [ %18, %91 ]
%94 = xor i64 %93, -1
br i1 %25, label %103, label %95
95: ; preds = %92
%96 = add nsw i64 %93, %30
%97 = getelementptr inbounds float, float* %0, i64 %96
%98 = load float, float* %97
%99 = mul nsw i64 %93, %8
%100 = add nsw i64 %99, %28
%101 = getelementptr inbounds float, float* %1, i64 %100
store float %98, float* %101
%102 = or i64 %93, 1
br label %103
103: ; preds = %95, %92
%104 = phi i64 [ %93, %92 ], [ %102, %95 ]
%105 = icmp eq i64 %94, %26
br i1 %105, label %107, label %110
106: ; preds = %107, %5
ret void
107: ; preds = %103, %110, %91
%108 = add nuw nsw i64 %28, 1
%109 = icmp eq i64 %108, %10
br i1 %109, label %106, label %27
110: ; preds = %103, %110
%111 = phi i64 [ %125, %110 ], [ %104, %103 ]
%112 = add nsw i64 %111, %30
%113 = getelementptr inbounds float, float* %0, i64 %112
%114 = load float, float* %113
%115 = mul nsw i64 %111, %8
%116 = add nsw i64 %115, %28
%117 = getelementptr inbounds float, float* %1, i64 %116
store float %114, float* %117
%118 = add nuw nsw i64 %111, 1
%119 = add nsw i64 %118, %30
%120 = getelementptr inbounds float, float* %0, i64 %119
%121 = load float, float* %120
%122 = mul nsw i64 %118, %8
%123 = add nsw i64 %122, %28
%124 = getelementptr inbounds float, float* %1, i64 %123
store float %121, float* %124
%125 = add nuw nsw i64 %111, 2
%126 = icmp eq i64 %125, %10
br i1 %126, label %107, label %110
}