#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 */
struct lconv {
  char *decimal_point;
};

/* Variables and functions */
scalar_t__ ERANGE;
scalar_t__ errno;
int /*<<< orphan*/ ffpmsg(char *);
struct lconv *localeconv();
char *strchr(char *, char);
int /*<<< orphan*/ strcpy(char *, char *);
int /*<<< orphan*/ strncat(char *, char *, int);
scalar_t__ strtod(char *, char **);
int ffc2rr(char *cval, float *fval, int *status) {
  char *loc, msg[81], tval[73];
  struct lconv *lcc = 0;
  static char decimalpt = 0;
  if (*status > 0)
    return (*status);
  if (!decimalpt) {
    lcc = localeconv();
    decimalpt = *(lcc->decimal_point);
  }
  errno = 0;
  *fval = 0.;
  if (strchr(cval, 'D') || decimalpt == ',') {
    strcpy(tval, cval);
    if (loc = strchr(tval, 'D'))
      *loc = 'E';
    if (decimalpt == ',') {
      if (loc = strchr(tval, '.'))
        *loc = ',';
    }
    *fval = (float)strtod(tval, &loc);
  } else {
    *fval = (float)strtod(cval, &loc);
  }
  if (*loc != '\0' && *loc != ' ') {
    strcpy(msg, "Error in ffc2rr converting string to float: ");
    strncat(msg, cval, 30);
    ffpmsg(msg);
    *status = 408;
  }
  if (errno == ERANGE) {
    strcpy(msg, "Error in ffc2rr converting string to float: ");
    strncat(msg, cval, 30);
    ffpmsg(msg);
    *status = 412;
    errno = 0;
  }
  return (*status);
}


x86 assembly (clang, -O0):
<ffc2rr>:
push   %rbp
mov    %rsp,%rbp
sub    $0xe0,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
movq   $0x0,-0xd8(%rbp)
mov    -0x20(%rbp),%rax
cmpl   $0x0,(%rax)
jle    119d <ffc2rr+0x3d>
mov    -0x20(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x4(%rbp)
jmp    1373 <ffc2rr+0x213>
cmpb   $0x0,0x2eb4(%rip)
jne    11ca <ffc2rr+0x6a>
mov    $0x0,%al
call   1050 <localeconv@plt>
mov    %rax,-0xd8(%rbp)
mov    -0xd8(%rbp),%rax
mov    (%rax),%rax
mov    (%rax),%al
mov    %al,0x2e8e(%rip)
mov    0x2e07(%rip),%rax
movq   $0x0,(%rax)
mov    -0x18(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,(%rax)
mov    -0x10(%rbp),%rdi
mov    $0x44,%esi
call   1070 <strchr@plt>
cmp    $0x0,%rax
jne    120b <ffc2rr+0xab>
movsbl 0x2e56(%rip),%eax
cmp    $0x2c,%eax
jne    129e <ffc2rr+0x13e>
lea    -0xd0(%rbp),%rdi
mov    -0x10(%rbp),%rsi
call   1030 <strcpy@plt>
lea    -0xd0(%rbp),%rdi
mov    $0x44,%esi
call   1070 <strchr@plt>
mov    %rax,-0x28(%rbp)
cmp    $0x0,%rax
je     1241 <ffc2rr+0xe1>
mov    -0x28(%rbp),%rax
movb   $0x45,(%rax)
movsbl 0x2e10(%rip),%eax
cmp    $0x2c,%eax
jne    127c <ffc2rr+0x11c>
lea    -0xd0(%rbp),%rdi
mov    $0x2e,%esi
call   1070 <strchr@plt>
mov    %rax,-0x28(%rbp)
cmp    $0x0,%rax
je     1277 <ffc2rr+0x117>
mov    -0x28(%rbp),%rax
movb   $0x2c,(%rax)
jmp    127c <ffc2rr+0x11c>
lea    -0xd0(%rbp),%rdi
lea    -0x28(%rbp),%rsi
call   1040 <strtod@plt>
cvtsi2ss %rax,%xmm0
mov    -0x18(%rbp),%rax
movss  %xmm0,(%rax)
jmp    12b8 <ffc2rr+0x158>
mov    -0x10(%rbp),%rdi
lea    -0x28(%rbp),%rsi
call   1040 <strtod@plt>
cvtsi2ss %rax,%xmm0
mov    -0x18(%rbp),%rax
movss  %xmm0,(%rax)
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     130d <ffc2rr+0x1ad>
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x20,%eax
je     130d <ffc2rr+0x1ad>
lea    -0x80(%rbp),%rdi
lea    0xd1d(%rip),%rsi
call   1030 <strcpy@plt>
lea    -0x80(%rbp),%rdi
mov    -0x10(%rbp),%rsi
mov    $0x1e,%edx
call   1080 <strncat@plt>
lea    -0x80(%rbp),%rdi
call   1060 <ffpmsg@plt>
mov    -0x20(%rbp),%rax
movl   $0x198,(%rax)
mov    0x2cc4(%rip),%rax
mov    (%rax),%rax
mov    0x2cca(%rip),%rcx
cmp    (%rcx),%rax
jne    136a <ffc2rr+0x20a>
lea    -0x80(%rbp),%rdi
lea    0xcce(%rip),%rsi
call   1030 <strcpy@plt>
lea    -0x80(%rbp),%rdi
mov    -0x10(%rbp),%rsi
mov    $0x1e,%edx
call   1080 <strncat@plt>
lea    -0x80(%rbp),%rdi
call   1060 <ffpmsg@plt>
mov    -0x20(%rbp),%rax
movl   $0x19c,(%rax)
mov    0x2c75(%rip),%rax
movq   $0x0,(%rax)
mov    -0x20(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0xe0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ffc2rr>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0xb8,%rsp
mov    (%rdx),%eax
test   %eax,%eax
jg     12d1 <ffc2rr+0x171>
mov    %rdx,%rbp
mov    %rsi,%r15
mov    %rdi,%r14
mov    0x2ece(%rip),%bl
test   %bl,%bl
jne    11a0 <ffc2rr+0x40>
xor    %eax,%eax
call   1050 <localeconv@plt>
mov    (%rax),%rax
mov    (%rax),%bl
mov    %bl,0x2eb8(%rip)
mov    0x2e31(%rip),%r13
movq   $0x0,0x0(%r13)
movl   $0x0,(%r15)
mov    %r14,%rdi
mov    $0x44,%esi
call   1070 <strchr@plt>
test   %rax,%rax
jne    11d7 <ffc2rr+0x77>
cmp    $0x2c,%bl
je     11d7 <ffc2rr+0x77>
lea    0x8(%rsp),%rsi
mov    %r14,%rdi
jmp    1230 <ffc2rr+0xd0>
lea    0x10(%rsp),%r12
mov    %r12,%rdi
mov    %r14,%rsi
call   1030 <strcpy@plt>
mov    %r12,%rdi
mov    $0x44,%esi
call   1070 <strchr@plt>
mov    %rax,0x8(%rsp)
test   %rax,%rax
je     1201 <ffc2rr+0xa1>
movb   $0x45,(%rax)
cmpb   $0x2c,0x2e50(%rip)
jne    1226 <ffc2rr+0xc6>
lea    0x10(%rsp),%rdi
mov    $0x2e,%esi
call   1070 <strchr@plt>
mov    %rax,0x8(%rsp)
test   %rax,%rax
je     1226 <ffc2rr+0xc6>
movb   $0x2c,(%rax)
lea    0x10(%rsp),%rdi
lea    0x8(%rsp),%rsi
call   1040 <strtod@plt>
cvtsi2ss %rax,%xmm0
movss  %xmm0,(%r15)
mov    0x8(%rsp),%rax
testb  $0xdf,(%rax)
je     127c <ffc2rr+0x11c>
lea    0xdb0(%rip),%rsi
lea    0x60(%rsp),%r15
mov    %r15,%rdi
call   1030 <strcpy@plt>
mov    %r15,%rdi
mov    %r14,%rsi
mov    $0x1e,%edx
call   1080 <strncat@plt>
mov    %r15,%rdi
call   1060 <ffpmsg@plt>
movl   $0x198,0x0(%rbp)
mov    0x0(%r13),%rax
mov    0x2d61(%rip),%rcx
cmp    (%rcx),%rax
jne    12ce <ffc2rr+0x16e>
lea    0xd6d(%rip),%rsi
lea    0x60(%rsp),%r15
mov    %r15,%rdi
call   1030 <strcpy@plt>
mov    %r15,%rdi
mov    %r14,%rsi
mov    $0x1e,%edx
call   1080 <strncat@plt>
mov    %r15,%rdi
call   1060 <ffpmsg@plt>
movl   $0x19c,0x0(%rbp)
movq   $0x0,0x0(%r13)
mov    $0x19c,%eax
jmp    12d1 <ffc2rr+0x171>
mov    0x0(%rbp),%eax
add    $0xb8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
%struct.lconv = type { i8* }
@ffc2rr.decimalpt = internal global i8 0
@errno = global i64 0
@.str = [45 x i8] c"Error in ffc2rr converting string to float: \00"
@ERANGE = global i64 0
define i32 @ffc2rr(i8* %0, float* %1, i32* %2) {
%4 = alloca i32
%5 = alloca i8*
%6 = alloca float*
%7 = alloca i32*
%8 = alloca i8*
%9 = alloca [81 x i8]
%10 = alloca [73 x i8]
%11 = alloca %struct.lconv*
store i8* %0, i8** %5
store float* %1, float** %6
store i32* %2, i32** %7
store %struct.lconv* null, %struct.lconv** %11
%12 = load i32*, i32** %7
%13 = load i32, i32* %12
%14 = icmp sgt i32 %13, 0
br i1 %14, label %15, label %18
15: ; preds = %3
%16 = load i32*, i32** %7
%17 = load i32, i32* %16
store i32 %17, i32* %4
br label %101
18: ; preds = %3
%19 = load i8, i8* @ffc2rr.decimalpt
%20 = icmp ne i8 %19, 0
br i1 %20, label %27, label %21
21: ; preds = %18
%22 = call %struct.lconv* (...) @localeconv()
store %struct.lconv* %22, %struct.lconv** %11
%23 = load %struct.lconv*, %struct.lconv** %11
%24 = getelementptr inbounds %struct.lconv, %struct.lconv* %23, i32 0, i32 0
%25 = load i8*, i8** %24
%26 = load i8, i8* %25
store i8 %26, i8* @ffc2rr.decimalpt
br label %27
27: ; preds = %21, %18
store i64 0, i64* @errno
%28 = load float*, float** %6
store float 0.000000e+00, float* %28
%29 = load i8*, i8** %5
%30 = call i8* @strchr(i8* %29, i8 signext 68)
%31 = icmp ne i8* %30, null
br i1 %31, label %36, label %32
32: ; preds = %27
%33 = load i8, i8* @ffc2rr.decimalpt
%34 = sext i8 %33 to i32
%35 = icmp eq i32 %34, 44
br i1 %35, label %36, label %61
36: ; preds = %32, %27
%37 = getelementptr inbounds [73 x i8], [73 x i8]* %10, i64 0, i64 0
%38 = load i8*, i8** %5
%39 = call i32 @strcpy(i8* %37, i8* %38)
%40 = getelementptr inbounds [73 x i8], [73 x i8]* %10, i64 0, i64 0
%41 = call i8* @strchr(i8* %40, i8 signext 68)
store i8* %41, i8** %8
%42 = icmp ne i8* %41, null
br i1 %42, label %43, label %45
43: ; preds = %36
%44 = load i8*, i8** %8
store i8 69, i8* %44
br label %45
45: ; preds = %43, %36
%46 = load i8, i8* @ffc2rr.decimalpt
%47 = sext i8 %46 to i32
%48 = icmp eq i32 %47, 44
br i1 %48, label %49, label %56
49: ; preds = %45
%50 = getelementptr inbounds [73 x i8], [73 x i8]* %10, i64 0, i64 0
%51 = call i8* @strchr(i8* %50, i8 signext 46)
store i8* %51, i8** %8
%52 = icmp ne i8* %51, null
br i1 %52, label %53, label %55
53: ; preds = %49
%54 = load i8*, i8** %8
store i8 44, i8* %54
br label %55
55: ; preds = %53, %49
br label %56
56: ; preds = %55, %45
%57 = getelementptr inbounds [73 x i8], [73 x i8]* %10, i64 0, i64 0
%58 = call i64 @strtod(i8* %57, i8** %8)
%59 = sitofp i64 %58 to float
%60 = load float*, float** %6
store float %59, float* %60
br label %66
61: ; preds = %32
%62 = load i8*, i8** %5
%63 = call i64 @strtod(i8* %62, i8** %8)
%64 = sitofp i64 %63 to float
%65 = load float*, float** %6
store float %64, float* %65
br label %66
66: ; preds = %61, %56
%67 = load i8*, i8** %8
%68 = load i8, i8* %67
%69 = sext i8 %68 to i32
%70 = icmp ne i32 %69, 0
br i1 %70, label %71, label %85
71: ; preds = %66
%72 = load i8*, i8** %8
%73 = load i8, i8* %72
%74 = sext i8 %73 to i32
%75 = icmp ne i32 %74, 32
br i1 %75, label %76, label %85
76: ; preds = %71
%77 = getelementptr inbounds [81 x i8], [81 x i8]* %9, i64 0, i64 0
%78 = call i32 @strcpy(i8* %77, i8* getelementptr inbounds ([45 x i8], [45 x i8]* @.str, i64 0, i64 0))
%79 = getelementptr inbounds [81 x i8], [81 x i8]* %9, i64 0, i64 0
%80 = load i8*, i8** %5
%81 = call i32 @strncat(i8* %79, i8* %80, i32 30)
%82 = getelementptr inbounds [81 x i8], [81 x i8]* %9, i64 0, i64 0
%83 = call i32 @ffpmsg(i8* %82)
%84 = load i32*, i32** %7
store i32 408, i32* %84
br label %85
85: ; preds = %76, %71, %66
%86 = load i64, i64* @errno
%87 = load i64, i64* @ERANGE
%88 = icmp eq i64 %86, %87
br i1 %88, label %89, label %98
89: ; preds = %85
%90 = getelementptr inbounds [81 x i8], [81 x i8]* %9, i64 0, i64 0
%91 = call i32 @strcpy(i8* %90, i8* getelementptr inbounds ([45 x i8], [45 x i8]* @.str, i64 0, i64 0))
%92 = getelementptr inbounds [81 x i8], [81 x i8]* %9, i64 0, i64 0
%93 = load i8*, i8** %5
%94 = call i32 @strncat(i8* %92, i8* %93, i32 30)
%95 = getelementptr inbounds [81 x i8], [81 x i8]* %9, i64 0, i64 0
%96 = call i32 @ffpmsg(i8* %95)
%97 = load i32*, i32** %7
store i32 412, i32* %97
store i64 0, i64* @errno
br label %98
98: ; preds = %89, %85
%99 = load i32*, i32** %7
%100 = load i32, i32* %99
store i32 %100, i32* %4
br label %101
101: ; preds = %98, %15
%102 = load i32, i32* %4
ret i32 %102
}

LLVM IR (-O2):
%struct.lconv = type { i8* }
@ffc2rr.decimalpt = internal unnamed_addr global i8 0
@errno = global i64 0
@.str = [45 x i8] c"Error in ffc2rr converting string to float: \00"
@ERANGE = global i64 0
define i32 @ffc2rr(i8* %0, float* nocapture writeonly %1, i32* nocapture %2) {
%4 = alloca i8*
%5 = alloca [81 x i8]
%6 = alloca [73 x i8]
%7 = bitcast i8** %4 to i8*
%8 = getelementptr inbounds [81 x i8], [81 x i8]* %5, i64 0, i64 0
%9 = getelementptr inbounds [73 x i8], [73 x i8]* %6, i64 0, i64 0
%10 = load i32, i32* %2
%11 = icmp sgt i32 %10, 0
br i1 %11, label %61, label %12
12: ; preds = %3
%13 = load i8, i8* @ffc2rr.decimalpt
%14 = icmp eq i8 %13, 0
br i1 %14, label %15, label %20
15: ; preds = %12
%16 = tail call %struct.lconv* (...) @localeconv()
%17 = getelementptr inbounds %struct.lconv, %struct.lconv* %16, i64 0, i32 0
%18 = load i8*, i8** %17
%19 = load i8, i8* %18
store i8 %19, i8* @ffc2rr.decimalpt
br label %20
20: ; preds = %15, %12
%21 = phi i8 [ %19, %15 ], [ %13, %12 ]
store i64 0, i64* @errno
store float 0.000000e+00, float* %1
%22 = tail call i8* @strchr(i8* dereferenceable(1) %0, i8 signext 68)
%23 = icmp ne i8* %22, null
%24 = icmp eq i8 %21, 44
%25 = select i1 %23, i1 true, i1 %24
br i1 %25, label %26, label %40
26: ; preds = %20
%27 = call i32 @strcpy(i8* %9, i8* %0)
%28 = call i8* @strchr(i8* %9, i8 signext 68)
store i8* %28, i8** %4
%29 = icmp eq i8* %28, null
br i1 %29, label %31, label %30
30: ; preds = %26
store i8 69, i8* %28
br label %31
31: ; preds = %30, %26
%32 = load i8, i8* @ffc2rr.decimalpt
%33 = icmp eq i8 %32, 44
br i1 %33, label %34, label %38
34: ; preds = %31
%35 = call i8* @strchr(i8* %9, i8 signext 46)
store i8* %35, i8** %4
%36 = icmp eq i8* %35, null
br i1 %36, label %38, label %37
37: ; preds = %34
store i8 44, i8* %35
br label %38
38: ; preds = %34, %37, %31
%39 = call i64 @strtod(i8* %9, i8** %4)
br label %42
40: ; preds = %20
%41 = call i64 @strtod(i8* %0, i8** %4)
br label %42
42: ; preds = %40, %38
%43 = phi i64 [ %41, %40 ], [ %39, %38 ]
%44 = sitofp i64 %43 to float
store float %44, float* %1
%45 = load i8*, i8** %4
%46 = load i8, i8* %45
switch i8 %46, label %47 [
i8 0, label %51
i8 32, label %51
]
47: ; preds = %42
%48 = call i32 @strcpy(i8* %8, i8* getelementptr inbounds ([45 x i8], [45 x i8]* @.str, i64 0, i64 0))
%49 = call i32 @strncat(i8* %8, i8* %0, i32 30)
%50 = call i32 @ffpmsg(i8* %8)
store i32 408, i32* %2
br label %51
51: ; preds = %42, %42, %47
%52 = load i64, i64* @errno
%53 = load i64, i64* @ERANGE
%54 = icmp eq i64 %52, %53
br i1 %54, label %57, label %55
55: ; preds = %51
%56 = load i32, i32* %2
br label %61
57: ; preds = %51
%58 = call i32 @strcpy(i8* %8, i8* getelementptr inbounds ([45 x i8], [45 x i8]* @.str, i64 0, i64 0))
%59 = call i32 @strncat(i8* %8, i8* %0, i32 30)
%60 = call i32 @ffpmsg(i8* %8)
store i32 412, i32* %2
store i64 0, i64* @errno
br label %61
61: ; preds = %57, %55, %3
%62 = phi i32 [ %10, %3 ], [ %56, %55 ], [ 412, %57 ]
ret i32 %62
}