#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 fabs(double const);
int /*<<< orphan*/ sprintf(char *, char *, int);
int /*<<< orphan*/ sscanf(char *, char *, int *);
int /*<<< orphan*/ wcsutil_double2str(char *, char *, double const);
void wcshdo_format(int fmt, int nval, const double val[], char *format) {
  char *cp, *cp0, cval[24];
  int i, expmax, expon, nsig, precision;
  if (fmt == 'G') {
    fmt = 'f';
    for (i = 0; i < nval; i++) {
      if (fabs(val[i]) < 1e-4 || 1e12 < val[i]) {
        fmt = 'E';
        break;
      }
    }
  }
  cp0 = cval + 2;
  expmax = -999;
  for (i = 0; i < nval; i++) {
    wcsutil_double2str(cval, "%20.13E", val[i]);
    cp = cval + 15;
    while (cp0 < cp && *cp == '0')
      cp--;
    cp0 = cp;
    sscanf(cval + 17, "%d", &expon);
    if (expmax < expon)
      expmax = expon;
  }
  nsig = cp - (cval + 2) + 1;
  if (fmt == 'f') {
    precision = nsig - (expmax + 1);
    if (precision < 1)
      precision = 1;
    if (17 < precision)
      precision = 17;
    sprintf(format, "%%20.%df", precision);
  } else {
    precision = nsig - 1;
    if (precision < 1)
      precision = 1;
    if (13 < precision)
      precision = 13;
    sprintf(format, "%%20.%dE", precision);
  }
}


x86 assembly (clang, -O0):
<wcshdo_format>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %rdx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
cmpl   $0x47,-0x4(%rbp)
jne    11e5 <wcshdo_format+0xa5>
movl   $0x66,-0x4(%rbp)
movl   $0x0,-0x44(%rbp)
mov    -0x44(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11e0 <wcshdo_format+0xa0>
mov    -0x10(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
call   1030 <fabs@plt>
cvtsi2sd %eax,%xmm1
movsd  0xe68(%rip),%xmm0
ucomisd %xmm1,%xmm0
ja     11c1 <wcshdo_format+0x81>
mov    -0x10(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  0xe51(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    11cd <wcshdo_format+0x8d>
movl   $0x45,-0x4(%rbp)
jmp    11e0 <wcshdo_format+0xa0>
jmp    11d2 <wcshdo_format+0x92>
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    116e <wcshdo_format+0x2e>
jmp    11e5 <wcshdo_format+0xa5>
lea    -0x40(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x28(%rbp)
movl   $0xfffffc19,-0x48(%rbp)
movl   $0x0,-0x44(%rbp)
mov    -0x44(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    12bd <wcshdo_format+0x17d>
lea    -0x40(%rbp),%rdi
mov    -0x10(%rbp),%rax
movslq -0x44(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
lea    0xded(%rip),%rsi
call   1060 <wcsutil_double2str@plt>
lea    -0x40(%rbp),%rax
add    $0xf,%rax
mov    %rax,-0x20(%rbp)
mov    -0x28(%rbp),%rcx
xor    %eax,%eax
cmp    -0x20(%rbp),%rcx
mov    %al,-0x55(%rbp)
jae    1257 <wcshdo_format+0x117>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
sete   %al
mov    %al,-0x55(%rbp)
mov    -0x55(%rbp),%al
test   $0x1,%al
jne    1267 <wcshdo_format+0x127>
jmp    1278 <wcshdo_format+0x138>
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
jmp    1234 <wcshdo_format+0xf4>
mov    -0x20(%rbp),%rax
mov    %rax,-0x28(%rbp)
lea    -0x40(%rbp),%rdi
add    $0x11,%rdi
lea    0xd89(%rip),%rsi
lea    -0x4c(%rbp),%rdx
call   1040 <sscanf@plt>
mov    -0x48(%rbp),%eax
cmp    -0x4c(%rbp),%eax
jge    12aa <wcshdo_format+0x16a>
mov    -0x4c(%rbp),%eax
mov    %eax,-0x48(%rbp)
jmp    12af <wcshdo_format+0x16f>
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    11ff <wcshdo_format+0xbf>
mov    -0x20(%rbp),%rax
lea    -0x40(%rbp),%rcx
add    $0x2,%rcx
sub    %rcx,%rax
add    $0x1,%rax
mov    %eax,-0x50(%rbp)
cmpl   $0x66,-0x4(%rbp)
jne    1329 <wcshdo_format+0x1e9>
mov    -0x50(%rbp),%eax
mov    -0x48(%rbp),%ecx
add    $0x1,%ecx
sub    %ecx,%eax
mov    %eax,-0x54(%rbp)
cmpl   $0x1,-0x54(%rbp)
jge    12fc <wcshdo_format+0x1bc>
movl   $0x1,-0x54(%rbp)
mov    $0x11,%eax
cmp    -0x54(%rbp),%eax
jge    1311 <wcshdo_format+0x1d1>
movl   $0x11,-0x54(%rbp)
mov    -0x18(%rbp),%rdi
mov    -0x54(%rbp),%edx
lea    0xcfc(%rip),%rsi
call   1050 <sprintf@plt>
jmp    136b <wcshdo_format+0x22b>
mov    -0x50(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x54(%rbp)
cmpl   $0x1,-0x54(%rbp)
jge    1343 <wcshdo_format+0x203>
movl   $0x1,-0x54(%rbp)
mov    $0xd,%eax
cmp    -0x54(%rbp),%eax
jge    1358 <wcshdo_format+0x218>
movl   $0xd,-0x54(%rbp)
mov    -0x18(%rbp),%rdi
mov    -0x54(%rbp),%edx
lea    0xcbe(%rip),%rsi
call   1050 <sprintf@plt>
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<wcshdo_format>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %rcx,%r14
mov    %rdx,%rbx
mov    %esi,%r15d
cmp    $0x47,%edi
jne    11a0 <wcshdo_format+0x60>
test   %r15d,%r15d
jle    1296 <wcshdo_format+0x156>
mov    %r15d,%r12d
xor    %ebp,%ebp
nopw   0x0(%rax,%rax,1)
movsd  (%rbx,%rbp,8),%xmm0
call   1030 <fabs@plt>
mov    $0x45,%edi
test   %eax,%eax
jle    11a0 <wcshdo_format+0x60>
movsd  (%rbx,%rbp,8),%xmm0
ucomisd 0xe70(%rip),%xmm0
ja     11a0 <wcshdo_format+0x60>
add    $0x1,%rbp
cmp    %rbp,%r12
jne    1170 <wcshdo_format+0x30>
mov    $0x66,%edi
mov    %edi,0x8(%rsp)
mov    %r14,0x10(%rsp)
lea    0x22(%rsp),%rax
test   %r15d,%r15d
jle    1255 <wcshdo_format+0x115>
mov    %rbx,0x18(%rsp)
lea    0x2f(%rsp),%r14
xor    %ebp,%ebp
mov    %r15d,%r15d
mov    $0xfffffc19,%r12d
mov    %rax,%rbx
jmp    120d <wcshdo_format+0xcd>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
lea    0x31(%rsp),%rdi
lea    0xe24(%rip),%rsi
lea    0xc(%rsp),%rdx
call   1040 <sscanf@plt>
mov    0xc(%rsp),%eax
cmp    %eax,%r12d
cmovl  %eax,%r12d
add    $0x1,%rbp
mov    %r13,%rbx
cmp    %r15,%rbp
je     125b <wcshdo_format+0x11b>
mov    0x18(%rsp),%rax
movsd  (%rax,%rbp,8),%xmm0
lea    0x20(%rsp),%rdi
lea    0xde5(%rip),%rsi
call   1060 <wcsutil_double2str@plt>
mov    %r14,%r13
cmp    %r14,%rbx
jae    11e0 <wcshdo_format+0xa0>
mov    %r14,%r13
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
cmpb   $0x30,0x0(%r13)
jne    11e0 <wcshdo_format+0xa0>
add    $0xffffffffffffffff,%r13
cmp    %r13,%rbx
jb     1240 <wcshdo_format+0x100>
mov    %rbx,%r13
jmp    11e0 <wcshdo_format+0xa0>
mov    $0xfffffc19,%r12d
lea    0x22(%rsp),%rax
sub    %eax,%r13d
cmpl   $0x66,0x8(%rsp)
jne    1271 <wcshdo_format+0x131>
mov    0x10(%rsp),%r14
jmp    129c <wcshdo_format+0x15c>
test   %r13d,%r13d
mov    $0x1,%eax
cmovg  %r13d,%eax
cmp    $0xd,%eax
mov    $0xd,%edx
cmovb  %eax,%edx
lea    0xd8d(%rip),%rsi
mov    0x10(%rsp),%rdi
jmp    12c0 <wcshdo_format+0x180>
mov    $0xfffffc19,%r12d
sub    %r12d,%r13d
test   %r13d,%r13d
mov    $0x1,%eax
cmovg  %r13d,%eax
cmp    $0x11,%eax
mov    $0x11,%edx
cmovb  %eax,%edx
lea    0xd56(%rip),%rsi
mov    %r14,%rdi
call   1050 <sprintf@plt>
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [8 x i8] c"%20.13E\00"
@.str.1 = [3 x i8] c"%d\00"
@.str.2 = [9 x i8] c"%%20.%df\00"
@.str.3 = [9 x i8] c"%%20.%dE\00"
define void @wcshdo_format(i32 %0, i32 %1, double* %2, i8* %3) {
%5 = alloca i32
%6 = alloca i32
%7 = alloca double*
%8 = alloca i8*
%9 = alloca i8*
%10 = alloca i8*
%11 = alloca [24 x i8]
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
store i32 %0, i32* %5
store i32 %1, i32* %6
store double* %2, double** %7
store i8* %3, i8** %8
%17 = load i32, i32* %5
%18 = icmp eq i32 %17, 71
br i1 %18, label %19, label %46
19: ; preds = %4
store i32 102, i32* %5
store i32 0, i32* %12
br label %20
20: ; preds = %42, %19
%21 = load i32, i32* %12
%22 = load i32, i32* %6
%23 = icmp slt i32 %21, %22
br i1 %23, label %24, label %45
24: ; preds = %20
%25 = load double*, double** %7
%26 = load i32, i32* %12
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds double, double* %25, i64 %27
%29 = load double, double* %28
%30 = call i32 @fabs(double %29)
%31 = sitofp i32 %30 to double
%32 = fcmp olt double %31, 1.000000e-04
br i1 %32, label %40, label %33
33: ; preds = %24
%34 = load double*, double** %7
%35 = load i32, i32* %12
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds double, double* %34, i64 %36
%38 = load double, double* %37
%39 = fcmp olt double 1.000000e+12, %38
br i1 %39, label %40, label %41
40: ; preds = %33, %24
store i32 69, i32* %5
br label %45
41: ; preds = %33
br label %42
42: ; preds = %41
%43 = load i32, i32* %12
%44 = add nsw i32 %43, 1
store i32 %44, i32* %12
br label %20
45: ; preds = %40, %20
br label %46
46: ; preds = %45, %4
%47 = getelementptr inbounds [24 x i8], [24 x i8]* %11, i64 0, i64 0
%48 = getelementptr inbounds i8, i8* %47, i64 2
store i8* %48, i8** %10
store i32 -999, i32* %13
store i32 0, i32* %12
br label %49
49: ; preds = %88, %46
%50 = load i32, i32* %12
%51 = load i32, i32* %6
%52 = icmp slt i32 %50, %51
br i1 %52, label %53, label %91
53: ; preds = %49
%54 = getelementptr inbounds [24 x i8], [24 x i8]* %11, i64 0, i64 0
%55 = load double*, double** %7
%56 = load i32, i32* %12
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds double, double* %55, i64 %57
%59 = load double, double* %58
%60 = call i32 @wcsutil_double2str(i8* %54, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), double %59)
%61 = getelementptr inbounds [24 x i8], [24 x i8]* %11, i64 0, i64 0
%62 = getelementptr inbounds i8, i8* %61, i64 15
store i8* %62, i8** %9
br label %63
63: ; preds = %74, %53
%64 = load i8*, i8** %10
%65 = load i8*, i8** %9
%66 = icmp ult i8* %64, %65
br i1 %66, label %67, label %72
67: ; preds = %63
%68 = load i8*, i8** %9
%69 = load i8, i8* %68
%70 = sext i8 %69 to i32
%71 = icmp eq i32 %70, 48
br label %72
72: ; preds = %67, %63
%73 = phi i1 [ false, %63 ], [ %71, %67 ]
br i1 %73, label %74, label %77
74: ; preds = %72
%75 = load i8*, i8** %9
%76 = getelementptr inbounds i8, i8* %75, i32 -1
store i8* %76, i8** %9
br label %63
77: ; preds = %72
%78 = load i8*, i8** %9
store i8* %78, i8** %10
%79 = getelementptr inbounds [24 x i8], [24 x i8]* %11, i64 0, i64 0
%80 = getelementptr inbounds i8, i8* %79, i64 17
%81 = call i32 @sscanf(i8* %80, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i32* %14)
%82 = load i32, i32* %13
%83 = load i32, i32* %14
%84 = icmp slt i32 %82, %83
br i1 %84, label %85, label %87
85: ; preds = %77
%86 = load i32, i32* %14
store i32 %86, i32* %13
br label %87
87: ; preds = %85, %77
br label %88
88: ; preds = %87
%89 = load i32, i32* %12
%90 = add nsw i32 %89, 1
store i32 %90, i32* %12
br label %49
91: ; preds = %49
%92 = load i8*, i8** %9
%93 = getelementptr inbounds [24 x i8], [24 x i8]* %11, i64 0, i64 0
%94 = getelementptr inbounds i8, i8* %93, i64 2
%95 = ptrtoint i8* %92 to i64
%96 = ptrtoint i8* %94 to i64
%97 = sub i64 %95, %96
%98 = add nsw i64 %97, 1
%99 = trunc i64 %98 to i32
store i32 %99, i32* %15
%100 = load i32, i32* %5
%101 = icmp eq i32 %100, 102
br i1 %101, label %102, label %118
102: ; preds = %91
%103 = load i32, i32* %15
%104 = load i32, i32* %13
%105 = add nsw i32 %104, 1
%106 = sub nsw i32 %103, %105
store i32 %106, i32* %16
%107 = load i32, i32* %16
%108 = icmp slt i32 %107, 1
br i1 %108, label %109, label %110
109: ; preds = %102
store i32 1, i32* %16
br label %110
110: ; preds = %109, %102
%111 = load i32, i32* %16
%112 = icmp slt i32 17, %111
br i1 %112, label %113, label %114
113: ; preds = %110
store i32 17, i32* %16
br label %114
114: ; preds = %113, %110
%115 = load i8*, i8** %8
%116 = load i32, i32* %16
%117 = call i32 @sprintf(i8* %115, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.2, i64 0, i64 0), i32 %116)
br label %132
118: ; preds = %91
%119 = load i32, i32* %15
%120 = sub nsw i32 %119, 1
store i32 %120, i32* %16
%121 = load i32, i32* %16
%122 = icmp slt i32 %121, 1
br i1 %122, label %123, label %124
123: ; preds = %118
store i32 1, i32* %16
br label %124
124: ; preds = %123, %118
%125 = load i32, i32* %16
%126 = icmp slt i32 13, %125
br i1 %126, label %127, label %128
127: ; preds = %124
store i32 13, i32* %16
br label %128
128: ; preds = %127, %124
%129 = load i8*, i8** %8
%130 = load i32, i32* %16
%131 = call i32 @sprintf(i8* %129, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.3, i64 0, i64 0), i32 %130)
br label %132
132: ; preds = %128, %114
ret void
}

LLVM IR (-O2):
@.str = [8 x i8] c"%20.13E\00"
@.str.1 = [3 x i8] c"%d\00"
@.str.2 = [9 x i8] c"%%20.%df\00"
@.str.3 = [9 x i8] c"%%20.%dE\00"
define void @wcshdo_format(i32 %0, i32 %1, double* nocapture %2, i8* nocapture writeonly %3) {
%5 = alloca [24 x i8]
%6 = ptrtoint [24 x i8]* %5 to i64
%7 = alloca i32
%8 = getelementptr inbounds [24 x i8], [24 x i8]* %5, i64 0, i64 0
%9 = bitcast i32* %7 to i8*
%10 = icmp eq i32 %0, 71
br i1 %10, label %11, label %27
11: ; preds = %4
%12 = icmp sgt i32 %1, 0
br i1 %12, label %13, label %71
13: ; preds = %11
%14 = zext i32 %1 to i64
br label %17
15: ; preds = %23
%16 = icmp eq i64 %26, %14
br i1 %16, label %27, label %17
17: ; preds = %13, %15
%18 = phi i64 [ 0, %13 ], [ %26, %15 ]
%19 = getelementptr inbounds double, double* %2, i64 %18
%20 = load double, double* %19
%21 = tail call i32 @fabs(double %20)
%22 = icmp slt i32 %21, 1
br i1 %22, label %27, label %23
23: ; preds = %17
%24 = load double, double* %19
%25 = fcmp ogt double %24, 1.000000e+12
%26 = add nuw nsw i64 %18, 1
br i1 %25, label %27, label %15
27: ; preds = %15, %23, %17, %4
%28 = phi i32 [ %0, %4 ], [ 102, %15 ], [ 69, %23 ], [ 69, %17 ]
%29 = getelementptr inbounds [24 x i8], [24 x i8]* %5, i64 0, i64 2
%30 = icmp sgt i32 %1, 0
br i1 %30, label %31, label %63
31: ; preds = %27
%32 = getelementptr inbounds [24 x i8], [24 x i8]* %5, i64 0, i64 15
%33 = getelementptr inbounds [24 x i8], [24 x i8]* %5, i64 0, i64 17
%34 = sub i64 0, %6
%35 = getelementptr [24 x i8], [24 x i8]* %5, i64 0, i64 %34
%36 = zext i32 %1 to i64
br label %37
37: ; preds = %31, %55
%38 = phi i64 [ 0, %31 ], [ %61, %55 ]
%39 = phi i32 [ -999, %31 ], [ %60, %55 ]
%40 = phi i8* [ %29, %31 ], [ %56, %55 ]
%41 = getelementptr inbounds double, double* %2, i64 %38
%42 = load double, double* %41
%43 = call i32 @wcsutil_double2str(i8* %8, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), double %42)
%44 = icmp ult i8* %40, %32
br i1 %44, label %45, label %55
45: ; preds = %37
%46 = ptrtoint i8* %40 to i64
%47 = getelementptr i8, i8* %35, i64 %46
br label %48
48: ; preds = %45, %52
%49 = phi i8* [ %53, %52 ], [ %32, %45 ]
%50 = load i8, i8* %49
%51 = icmp eq i8 %50, 48
br i1 %51, label %52, label %55
52: ; preds = %48
%53 = getelementptr inbounds i8, i8* %49, i64 -1
%54 = icmp ult i8* %40, %53
br i1 %54, label %48, label %55
55: ; preds = %48, %52, %37
%56 = phi i8* [ %32, %37 ], [ %47, %52 ], [ %49, %48 ]
%57 = call i32 @sscanf(i8* %33, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i32* %7)
%58 = load i32, i32* %7
%59 = icmp slt i32 %39, %58
%60 = select i1 %59, i32 %58, i32 %39
%61 = add nuw nsw i64 %38, 1
%62 = icmp eq i64 %61, %36
br i1 %62, label %63, label %37
63: ; preds = %55, %27
%64 = phi i8* [ undef, %27 ], [ %56, %55 ]
%65 = phi i32 [ -999, %27 ], [ %60, %55 ]
%66 = ptrtoint i8* %64 to i64
%67 = ptrtoint i8* %29 to i64
%68 = sub i64 %66, %67
%69 = trunc i64 %68 to i32
%70 = icmp eq i32 %28, 102
br i1 %70, label %71, label %80
71: ; preds = %11, %63
%72 = phi i32 [ %69, %63 ], [ undef, %11 ]
%73 = phi i32 [ %65, %63 ], [ -999, %11 ]
%74 = sub i32 %72, %73
%75 = icmp sgt i32 %74, 1
%76 = select i1 %75, i32 %74, i32 1
%77 = icmp ult i32 %76, 17
%78 = select i1 %77, i32 %76, i32 17
%79 = call i32 @sprintf(i8* dereferenceable(1) %3, i8* dereferenceable(1) getelementptr inbounds ([9 x i8], [9 x i8]* @.str.2, i64 0, i64 0), i32 %78)
br label %86
80: ; preds = %63
%81 = icmp sgt i32 %69, 1
%82 = select i1 %81, i32 %69, i32 1
%83 = icmp ult i32 %82, 13
%84 = select i1 %83, i32 %82, i32 13
%85 = call i32 @sprintf(i8* dereferenceable(1) %3, i8* dereferenceable(1) getelementptr inbounds ([9 x i8], [9 x i8]* @.str.3, i64 0, i64 0), i32 %84)
br label %86
86: ; preds = %80, %71
ret void
}