#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ zmemset(int const *, int const *, double const *, double *,
                           int const *);
void ztrmemset(const char *uplo, const char *diag, const int *n,
               const double *alpha, double *A, const int *ldA) {
  int i, j;
  const int unit = diag[0] == 'U';
  if (uplo[0] == 'L') {
    for (j = 0; j < *n; j++)
      for (i = j + unit; i < *n; i++) {
        A[2 * (i + j * *ldA)] = alpha[0];
        A[2 * (i + j * *ldA)] = alpha[1];
      }
  } else if (uplo[0] == 'U') {
    for (j = 0; j < *n; j++)
      for (i = 0; i <= j - unit; i++) {
        A[2 * (i + j * *ldA)] = alpha[0];
        A[2 * (i + j * *ldA)] = alpha[1];
      }
  } else
    zmemset(n, n, alpha, A, ldA);
}


x86 assembly (clang, -O0):
<ztrmemset>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x55,%eax
sete   %al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x3c(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x4c,%eax
jne    11f6 <ztrmemset+0xe6>
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
mov    -0x18(%rbp),%rcx
cmp    (%rcx),%eax
jge    11f1 <ztrmemset+0xe1>
mov    -0x38(%rbp),%eax
add    -0x3c(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    -0x18(%rbp),%rcx
cmp    (%rcx),%eax
jge    11de <ztrmemset+0xce>
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    -0x38(%rbp),%edx
mov    -0x30(%rbp),%rsi
imul   (%rsi),%edx
add    %edx,%ecx
shl    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
movsd  0x8(%rax),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    -0x38(%rbp),%edx
mov    -0x30(%rbp),%rsi
imul   (%rsi),%edx
add    %edx,%ecx
shl    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1174 <ztrmemset+0x64>
jmp    11e3 <ztrmemset+0xd3>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    115c <ztrmemset+0x4c>
jmp    12c5 <ztrmemset+0x1b5>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x55,%eax
jne    12a7 <ztrmemset+0x197>
movl   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%eax
mov    -0x18(%rbp),%rcx
cmp    (%rcx),%eax
jge    12a2 <ztrmemset+0x192>
movl   $0x0,-0x34(%rbp)
mov    -0x34(%rbp),%eax
mov    -0x38(%rbp),%ecx
sub    -0x3c(%rbp),%ecx
cmp    %ecx,%eax
jg     128f <ztrmemset+0x17f>
mov    -0x20(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    -0x38(%rbp),%edx
mov    -0x30(%rbp),%rsi
imul   (%rsi),%edx
add    %edx,%ecx
shl    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x20(%rbp),%rax
movsd  0x8(%rax),%xmm0
mov    -0x28(%rbp),%rax
mov    -0x34(%rbp),%ecx
mov    -0x38(%rbp),%edx
mov    -0x30(%rbp),%rsi
imul   (%rsi),%edx
add    %edx,%ecx
shl    $0x1,%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1223 <ztrmemset+0x113>
jmp    1294 <ztrmemset+0x184>
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    120d <ztrmemset+0xfd>
jmp    12c0 <ztrmemset+0x1b0>
mov    -0x18(%rbp),%rdi
mov    -0x18(%rbp),%rsi
mov    -0x20(%rbp),%rdx
mov    -0x28(%rbp),%rcx
mov    -0x30(%rbp),%r8
call   1030 <zmemset@plt>
jmp    12c5 <ztrmemset+0x1b5>
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ztrmemset>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
mov    (%rsi),%al
xor    %r14d,%r14d
cmp    $0x55,%al
sete   %r14b
mov    (%rdi),%bl
cmp    $0x4c,%bl
je     120d <ztrmemset+0xfd>
cmp    $0x55,%bl
jne    126e <ztrmemset+0x15e>
mov    (%rdx),%r11d
test   %r11d,%r11d
jle    1265 <ztrmemset+0x155>
xor    %r10d,%r10d
xor    %ebx,%ebx
cmp    $0x55,%al
sete   %r10b
setne  %bl
xor    %r12d,%r12d
xor    %edx,%edx
jmp    1175 <ztrmemset+0x65>
nopl   0x0(%rax,%rax,1)
add    $0x1,%rdx
add    $0x1,%rbx
add    $0x2,%r12d
cmp    %r11d,%edx
je     1265 <ztrmemset+0x155>
cmp    %r14d,%edx
jb     1160 <ztrmemset+0x50>
mov    (%r9),%r15d
cmp    %r10,%rdx
jne    1190 <ztrmemset+0x80>
xor    %eax,%eax
jmp    11df <ztrmemset+0xcf>
cs nopw 0x0(%rax,%rax,1)
mov    %rbx,%rdi
and    $0xfffffffffffffffe,%rdi
mov    %r15d,%ebp
imul   %r12d,%ebp
xor    %eax,%eax
movsd  (%rcx),%xmm0
movslq %ebp,%rbp
movsd  %xmm0,(%r8,%rbp,8)
movsd  0x8(%rcx),%xmm0
movsd  %xmm0,(%r8,%rbp,8)
movsd  (%rcx),%xmm0
lea    0x2(%rbp),%esi
movslq %esi,%rsi
movsd  %xmm0,(%r8,%rsi,8)
movsd  0x8(%rcx),%xmm0
movsd  %xmm0,(%r8,%rsi,8)
add    $0x2,%rax
add    $0x4,%ebp
cmp    %rax,%rdi
jne    11a0 <ztrmemset+0x90>
test   $0x1,%bl
je     1160 <ztrmemset+0x50>
imul   %edx,%r15d
movsd  (%rcx),%xmm0
add    %r15d,%eax
add    %eax,%eax
cltq
movsd  %xmm0,(%r8,%rax,8)
movsd  0x8(%rcx),%xmm0
movsd  %xmm0,(%r8,%rax,8)
jmp    1160 <ztrmemset+0x50>
mov    (%rdx),%edx
test   %edx,%edx
jle    1265 <ztrmemset+0x155>
xor    %ebp,%ebp
cmp    $0x55,%al
sete   %bpl
xor    %edi,%edi
jmp    122b <ztrmemset+0x11b>
nop
add    $0x1,%edi
add    $0x1,%rbp
cmp    %edx,%edi
je     1265 <ztrmemset+0x155>
lea    (%rdi,%r14,1),%eax
cmp    %edx,%eax
jge    1220 <ztrmemset+0x110>
mov    (%r9),%eax
imul   %edi,%eax
add    %ebp,%eax
add    %eax,%eax
mov    %rbp,%rsi
movsd  (%rcx),%xmm0
cltq
movsd  %xmm0,(%r8,%rax,8)
movsd  0x8(%rcx),%xmm0
movsd  %xmm0,(%r8,%rax,8)
add    $0x1,%rsi
add    $0x2,%eax
cmp    %rdx,%rsi
jb     1240 <ztrmemset+0x130>
jmp    1220 <ztrmemset+0x110>
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret
mov    %rdx,%rdi
mov    %rdx,%rsi
mov    %rcx,%rdx
mov    %r8,%rcx
mov    %r9,%r8
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
jmp    1030 <zmemset@plt>

LLVM IR (-O0):
define void @ztrmemset(i8* %0, i8* %1, i32* %2, double* %3, double* %4, i32* %5) {
%7 = alloca i8*
%8 = alloca i8*
%9 = alloca i32*
%10 = alloca double*
%11 = alloca double*
%12 = alloca i32*
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
store i8* %0, i8** %7
store i8* %1, i8** %8
store i32* %2, i32** %9
store double* %3, double** %10
store double* %4, double** %11
store i32* %5, i32** %12
%16 = load i8*, i8** %8
%17 = getelementptr inbounds i8, i8* %16, i64 0
%18 = load i8, i8* %17
%19 = sext i8 %18 to i32
%20 = icmp eq i32 %19, 85
%21 = zext i1 %20 to i32
store i32 %21, i32* %15
%22 = load i8*, i8** %7
%23 = getelementptr inbounds i8, i8* %22, i64 0
%24 = load i8, i8* %23
%25 = sext i8 %24 to i32
%26 = icmp eq i32 %25, 76
br i1 %26, label %27, label %77
27: ; preds = %6
store i32 0, i32* %14
br label %28
28: ; preds = %73, %27
%29 = load i32, i32* %14
%30 = load i32*, i32** %9
%31 = load i32, i32* %30
%32 = icmp slt i32 %29, %31
br i1 %32, label %33, label %76
33: ; preds = %28
%34 = load i32, i32* %14
%35 = load i32, i32* %15
%36 = add nsw i32 %34, %35
store i32 %36, i32* %13
br label %37
37: ; preds = %69, %33
%38 = load i32, i32* %13
%39 = load i32*, i32** %9
%40 = load i32, i32* %39
%41 = icmp slt i32 %38, %40
br i1 %41, label %42, label %72
42: ; preds = %37
%43 = load double*, double** %10
%44 = getelementptr inbounds double, double* %43, i64 0
%45 = load double, double* %44
%46 = load double*, double** %11
%47 = load i32, i32* %13
%48 = load i32, i32* %14
%49 = load i32*, i32** %12
%50 = load i32, i32* %49
%51 = mul nsw i32 %48, %50
%52 = add nsw i32 %47, %51
%53 = mul nsw i32 2, %52
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds double, double* %46, i64 %54
store double %45, double* %55
%56 = load double*, double** %10
%57 = getelementptr inbounds double, double* %56, i64 1
%58 = load double, double* %57
%59 = load double*, double** %11
%60 = load i32, i32* %13
%61 = load i32, i32* %14
%62 = load i32*, i32** %12
%63 = load i32, i32* %62
%64 = mul nsw i32 %61, %63
%65 = add nsw i32 %60, %64
%66 = mul nsw i32 2, %65
%67 = sext i32 %66 to i64
%68 = getelementptr inbounds double, double* %59, i64 %67
store double %58, double* %68
br label %69
69: ; preds = %42
%70 = load i32, i32* %13
%71 = add nsw i32 %70, 1
store i32 %71, i32* %13
br label %37
72: ; preds = %37
br label %73
73: ; preds = %72
%74 = load i32, i32* %14
%75 = add nsw i32 %74, 1
store i32 %75, i32* %14
br label %28
76: ; preds = %28
br label %139
77: ; preds = %6
%78 = load i8*, i8** %7
%79 = getelementptr inbounds i8, i8* %78, i64 0
%80 = load i8, i8* %79
%81 = sext i8 %80 to i32
%82 = icmp eq i32 %81, 85
br i1 %82, label %83, label %131
83: ; preds = %77
store i32 0, i32* %14
br label %84
84: ; preds = %127, %83
%85 = load i32, i32* %14
%86 = load i32*, i32** %9
%87 = load i32, i32* %86
%88 = icmp slt i32 %85, %87
br i1 %88, label %89, label %130
89: ; preds = %84
store i32 0, i32* %13
br label %90
90: ; preds = %123, %89
%91 = load i32, i32* %13
%92 = load i32, i32* %14
%93 = load i32, i32* %15
%94 = sub nsw i32 %92, %93
%95 = icmp sle i32 %91, %94
br i1 %95, label %96, label %126
96: ; preds = %90
%97 = load double*, double** %10
%98 = getelementptr inbounds double, double* %97, i64 0
%99 = load double, double* %98
%100 = load double*, double** %11
%101 = load i32, i32* %13
%102 = load i32, i32* %14
%103 = load i32*, i32** %12
%104 = load i32, i32* %103
%105 = mul nsw i32 %102, %104
%106 = add nsw i32 %101, %105
%107 = mul nsw i32 2, %106
%108 = sext i32 %107 to i64
%109 = getelementptr inbounds double, double* %100, i64 %108
store double %99, double* %109
%110 = load double*, double** %10
%111 = getelementptr inbounds double, double* %110, i64 1
%112 = load double, double* %111
%113 = load double*, double** %11
%114 = load i32, i32* %13
%115 = load i32, i32* %14
%116 = load i32*, i32** %12
%117 = load i32, i32* %116
%118 = mul nsw i32 %115, %117
%119 = add nsw i32 %114, %118
%120 = mul nsw i32 2, %119
%121 = sext i32 %120 to i64
%122 = getelementptr inbounds double, double* %113, i64 %121
store double %112, double* %122
br label %123
123: ; preds = %96
%124 = load i32, i32* %13
%125 = add nsw i32 %124, 1
store i32 %125, i32* %13
br label %90
126: ; preds = %90
br label %127
127: ; preds = %126
%128 = load i32, i32* %14
%129 = add nsw i32 %128, 1
store i32 %129, i32* %14
br label %84
130: ; preds = %84
br label %138
131: ; preds = %77
%132 = load i32*, i32** %9
%133 = load i32*, i32** %9
%134 = load double*, double** %10
%135 = load double*, double** %11
%136 = load i32*, i32** %12
%137 = call i32 @zmemset(i32* %132, i32* %133, double* %134, double* %135, i32* %136)
br label %138
138: ; preds = %131, %130
br label %139
139: ; preds = %138, %76
ret void
}

LLVM IR (-O2):
define void @ztrmemset(i8* nocapture %0, i8* nocapture %1, i32* %2, double* %3, double* %4, i32* %5) {
%7 = load i8, i8* %1
%8 = icmp eq i8 %7, 85
%9 = zext i1 %8 to i32
%10 = load i8, i8* %0
switch i8 %10, label %98 [
i8 76, label %19
i8 85, label %11
]
11: ; preds = %6
%12 = load i32, i32* %2
%13 = icmp sgt i32 %12, 0
br i1 %13, label %14, label %100
14: ; preds = %11
%15 = getelementptr inbounds double, double* %3, i64 1
%16 = xor i1 %8, true
%17 = zext i1 %16 to i64
%18 = zext i1 %8 to i64
br label %49
19: ; preds = %6
%20 = load i32, i32* %2
%21 = icmp sgt i32 %20, 0
br i1 %21, label %22, label %100
22: ; preds = %19
%23 = getelementptr inbounds double, double* %3, i64 1
%24 = zext i1 %8 to i64
%25 = zext i32 %20 to i64
br label %26
26: ; preds = %22, %45
%27 = phi i64 [ %24, %22 ], [ %47, %45 ]
%28 = phi i32 [ 0, %22 ], [ %46, %45 ]
%29 = add nuw nsw i32 %28, %9
%30 = icmp slt i32 %29, %20
br i1 %30, label %31, label %45
31: ; preds = %26
%32 = load i32, i32* %5
%33 = mul nsw i32 %32, %28
br label %34
34: ; preds = %31, %34
%35 = phi i64 [ %27, %31 ], [ %43, %34 ]
%36 = trunc i64 %35 to i32
%37 = load double, double* %3
%38 = add nsw i32 %33, %36
%39 = shl nsw i32 %38, 1
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds double, double* %4, i64 %40
store double %37, double* %41
%42 = load double, double* %23
store double %42, double* %41
%43 = add nuw nsw i64 %35, 1
%44 = icmp ult i64 %43, %25
br i1 %44, label %34, label %45
45: ; preds = %34, %26
%46 = add nuw nsw i32 %28, 1
%47 = add nuw nsw i64 %27, 1
%48 = icmp eq i32 %46, %20
br i1 %48, label %100, label %26
49: ; preds = %14, %93
%50 = phi i64 [ 0, %14 ], [ %97, %93 ]
%51 = phi i64 [ %17, %14 ], [ %95, %93 ]
%52 = phi i32 [ 0, %14 ], [ %94, %93 ]
%53 = icmp ult i32 %52, %9
br i1 %53, label %93, label %54
54: ; preds = %49
%55 = load i32, i32* %5
%56 = mul nsw i32 %55, %52
%57 = and i64 %51, 1
%58 = icmp eq i64 %50, %18
br i1 %58, label %82, label %59
59: ; preds = %54
%60 = and i64 %51, 9223372036854775806
br label %61
61: ; preds = %61, %59
%62 = phi i64 [ 0, %59 ], [ %79, %61 ]
%63 = phi i64 [ 0, %59 ], [ %80, %61 ]
%64 = trunc i64 %62 to i32
%65 = load double, double* %3
%66 = add nsw i32 %56, %64
%67 = shl nsw i32 %66, 1
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds double, double* %4, i64 %68
store double %65, double* %69
%70 = load double, double* %15
store double %70, double* %69
%71 = trunc i64 %62 to i32
%72 = or i32 %71, 1
%73 = load double, double* %3
%74 = add nsw i32 %56, %72
%75 = shl nsw i32 %74, 1
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds double, double* %4, i64 %76
store double %73, double* %77
%78 = load double, double* %15
store double %78, double* %77
%79 = add nuw nsw i64 %62, 2
%80 = add i64 %63, 2
%81 = icmp eq i64 %80, %60
br i1 %81, label %82, label %61
82: ; preds = %61, %54
%83 = phi i64 [ 0, %54 ], [ %79, %61 ]
%84 = icmp eq i64 %57, 0
br i1 %84, label %93, label %85
85: ; preds = %82
%86 = trunc i64 %83 to i32
%87 = load double, double* %3
%88 = add nsw i32 %56, %86
%89 = shl nsw i32 %88, 1
%90 = sext i32 %89 to i64
%91 = getelementptr inbounds double, double* %4, i64 %90
store double %87, double* %91
%92 = load double, double* %15
store double %92, double* %91
br label %93
93: ; preds = %85, %82, %49
%94 = add nuw nsw i32 %52, 1
%95 = add nuw nsw i64 %51, 1
%96 = icmp eq i32 %94, %12
%97 = add i64 %50, 1
br i1 %96, label %100, label %49
98: ; preds = %6
%99 = tail call i32 @zmemset(i32* %2, i32* %2, double* %3, double* %4, i32* %5)
br label %100
100: ; preds = %93, %45, %11, %19, %98
ret void
}