__attribute__((always_)) int
NoFLA_Zero_strict_lower_part(int m_A, int n_A, double *A, int ldim_A) {
  int i, j;
  for (j = 0; j < n_A; j++) {
    for (i = j + 1; i < m_A; i++) {
      A[ldim_A * j + i] = 0.0;
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<NoFLA_Zero_strict_lower_part>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %rdx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    1173 <NoFLA_Zero_strict_lower_part+0x73>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1160 <NoFLA_Zero_strict_lower_part+0x60>
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
imul   -0x1c(%rbp),%ecx
add    -0x18(%rbp),%ecx
movslq %ecx,%rcx
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    112d <NoFLA_Zero_strict_lower_part+0x2d>
jmp    1165 <NoFLA_Zero_strict_lower_part+0x65>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1118 <NoFLA_Zero_strict_lower_part+0x18>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<NoFLA_Zero_strict_lower_part>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x28,%rsp
mov    %rdx,(%rsp)
test   %esi,%esi
jle    1230 <NoFLA_Zero_strict_lower_part+0x120>
movslq %edi,%r13
mov    %esi,%eax
cmp    $0x1,%esi
jne    1143 <NoFLA_Zero_strict_lower_part+0x33>
xor    %ebx,%ebx
test   $0x1,%al
jne    11ff <NoFLA_Zero_strict_lower_part+0xef>
jmp    1230 <NoFLA_Zero_strict_lower_part+0x120>
mov    %rdi,0x10(%rsp)
lea    -0x3(%rdi),%ebp
lea    0x2(%rcx),%r15d
mov    %rcx,0x18(%rsp)
lea    (%rcx,%rcx,1),%r14d
add    $0x2,%r14d
mov    %rax,0x8(%rsp)
and    $0xfffffffe,%eax
neg    %rax
mov    %rax,0x20(%rsp)
mov    $0x1,%ebx
mov    $0x1,%r12d
jmp    119f <NoFLA_Zero_strict_lower_part+0x8f>
nopl   0x0(%rax)
add    $0xfffffffe,%ebp
add    %r14d,%r15d
add    %r14d,%r12d
mov    0x20(%rsp),%rax
add    %rbx,%rax
add    $0x2,%rax
add    $0x2,%rbx
cmp    $0x1,%rax
je     11e8 <NoFLA_Zero_strict_lower_part+0xd8>
cmp    %r13,%rbx
jge    11c1 <NoFLA_Zero_strict_lower_part+0xb1>
lea    0x1(%rbp),%eax
lea    0x8(,%rax,8),%rdx
movslq %r12d,%rax
mov    (%rsp),%rcx
lea    (%rcx,%rax,8),%rdi
xor    %esi,%esi
call   1030 <memset@plt>
lea    0x1(%rbx),%rax
cmp    %r13,%rax
jge    1180 <NoFLA_Zero_strict_lower_part+0x70>
mov    %ebp,%eax
lea    0x8(,%rax,8),%rdx
movslq %r15d,%rax
mov    (%rsp),%rcx
lea    (%rcx,%rax,8),%rdi
xor    %esi,%esi
call   1030 <memset@plt>
jmp    1180 <NoFLA_Zero_strict_lower_part+0x70>
add    $0xffffffffffffffff,%rbx
mov    0x18(%rsp),%rcx
mov    0x10(%rsp),%rdi
mov    0x8(%rsp),%rax
test   $0x1,%al
je     1230 <NoFLA_Zero_strict_lower_part+0x120>
lea    0x1(%rbx),%rax
cmp    %r13,%rax
jge    1230 <NoFLA_Zero_strict_lower_part+0x120>
add    $0x1,%ecx
add    $0xfffffffe,%edi
sub    %ebx,%edi
lea    0x8(,%rdi,8),%rdx
imul   %ebx,%ecx
add    $0x1,%ecx
movslq %ecx,%rax
mov    (%rsp),%rcx
lea    (%rcx,%rax,8),%rdi
xor    %esi,%esi
call   1030 <memset@plt>
xor    %eax,%eax
add    $0x28,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define i32 @NoFLA_Zero_strict_lower_part(i32 %0, i32 %1, double* nocapture writeonly %2, i32 %3) {
%5 = icmp sgt i32 %1, 0
br i1 %5, label %6, label %68
6: ; preds = %4
%7 = add i32 %3, 1
%8 = add i32 %0, -2
%9 = sext i32 %0 to i64
%10 = zext i32 %1 to i64
%11 = and i64 %10, 1
%12 = icmp eq i32 %1, 1
br i1 %12, label %50, label %13
13: ; preds = %6
%14 = and i64 %10, 4294967294
br label %33
15: ; preds = %38, %33
%16 = add nuw nsw i64 %34, 2
%17 = icmp slt i64 %16, %9
br i1 %17, label %18, label %30
18: ; preds = %15
%19 = trunc i64 %36 to i32
%20 = sub i32 %8, %19
%21 = zext i32 %20 to i64
%22 = shl nuw nsw i64 %21, 3
%23 = add nuw nsw i64 %22, 8
%24 = trunc i64 %36 to i32
%25 = mul i32 %7, %24
%26 = add i32 %25, 1
%27 = sext i32 %26 to i64
%28 = getelementptr double, double* %2, i64 %27
%29 = bitcast double* %28 to i8*
br label %30
30: ; preds = %18, %15
%31 = add i64 %35, 2
%32 = icmp eq i64 %31, %14
br i1 %32, label %50, label %33
33: ; preds = %30, %13
%34 = phi i64 [ 0, %13 ], [ %16, %30 ]
%35 = phi i64 [ 0, %13 ], [ %31, %30 ]
%36 = or i64 %34, 1
%37 = icmp slt i64 %36, %9
br i1 %37, label %38, label %15
38: ; preds = %33
%39 = trunc i64 %34 to i32
%40 = sub i32 %8, %39
%41 = zext i32 %40 to i64
%42 = shl nuw nsw i64 %41, 3
%43 = add nuw nsw i64 %42, 8
%44 = trunc i64 %34 to i32
%45 = mul i32 %7, %44
%46 = or i32 %45, 1
%47 = sext i32 %46 to i64
%48 = getelementptr double, double* %2, i64 %47
%49 = bitcast double* %48 to i8*
br label %15
50: ; preds = %30, %6
%51 = phi i64 [ 0, %6 ], [ %16, %30 ]
%52 = icmp ne i64 %11, 0
%53 = add nuw nsw i64 %51, 1
%54 = icmp slt i64 %53, %9
%55 = select i1 %52, i1 %54, i1 false
br i1 %55, label %56, label %68
56: ; preds = %50
%57 = trunc i64 %51 to i32
%58 = sub i32 %8, %57
%59 = zext i32 %58 to i64
%60 = shl nuw nsw i64 %59, 3
%61 = add nuw nsw i64 %60, 8
%62 = trunc i64 %51 to i32
%63 = mul i32 %7, %62
%64 = add i32 %63, 1
%65 = sext i32 %64 to i64
%66 = getelementptr double, double* %2, i64 %65
%67 = bitcast double* %66 to i8*
br label %68
68: ; preds = %50, %56, %4
ret i32 0
}