#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 MatchUnsignedInteger(char const *, int);
int ModelicaStrings_skipWhiteSpace(char const *, int);
int sscanf(char *, char *, double *);
int /*<<< orphan*/ strncpy(char *, char const *, int);
void ModelicaStrings_scanReal(const char *string, int startIndex,
                              int unsignedNumber, int *nextIndex,
                              double *number) {
  int len = 0;
  int total_length = 0;
  int token_start = ModelicaStrings_skipWhiteSpace(string, startIndex);
  if (string[token_start - 1] == '+' || string[token_start - 1] == '-') {
    total_length = 1;
    if (unsignedNumber == 1)
      goto error;
  }
  len = MatchUnsignedInteger(string, token_start + total_length);
  total_length += len;
  if (string[token_start + total_length - 1] == '.') {
    total_length += 1;
    len = MatchUnsignedInteger(string, token_start + total_length);
    if (len > 0) {
      total_length += len;
    }
  }
  if (string[token_start + total_length - 1] == 'e' ||
      string[token_start + total_length - 1] == 'E') {
    int exp_len = 1;
    if (string[token_start + total_length] == '+' ||
        string[token_start + total_length] == '-') {
      exp_len += 1;
    }
    len = MatchUnsignedInteger(string, token_start + total_length + exp_len);
    if (len == 0)
      goto error;
    total_length += exp_len + len;
  }
  if (total_length > 0 && total_length < 100) {
    char buf[100 + 1];
    double x;
    strncpy(buf, string + token_start - 1, total_length);
    buf[total_length] = '\0';
    if (sscanf(buf, "%lg", &x) == 1) {
      *number = x;
      *nextIndex = token_start + total_length;
      return;
    }
  }
error:
  *nextIndex = startIndex;
  *number = 0;
  return;
}


x86 assembly (clang, -O0):
<ModelicaStrings_scanReal>:
push   %rbp
mov    %rsp,%rbp
sub    $0xb0,%rsp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
mov    %r8,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x28(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0xc(%rbp),%esi
call   1060 <ModelicaStrings_skipWhiteSpace@plt>
mov    %eax,-0x2c(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2b,%eax
je     11ae <ModelicaStrings_scanReal+0x6e>
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2d,%eax
jne    11c9 <ModelicaStrings_scanReal+0x89>
movl   $0x1,-0x28(%rbp)
cmpl   $0x1,-0x10(%rbp)
jne    11c4 <ModelicaStrings_scanReal+0x84>
jmp    136e <ModelicaStrings_scanReal+0x22e>
jmp    11c9 <ModelicaStrings_scanReal+0x89>
mov    -0x8(%rbp),%rdi
mov    -0x2c(%rbp),%esi
add    -0x28(%rbp),%esi
call   1050 <MatchUnsignedInteger@plt>
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
add    -0x28(%rbp),%eax
mov    %eax,-0x28(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x28(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2e,%eax
jne    1234 <ModelicaStrings_scanReal+0xf4>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x2c(%rbp),%esi
add    -0x28(%rbp),%esi
call   1050 <MatchUnsignedInteger@plt>
mov    %eax,-0x24(%rbp)
cmpl   $0x0,-0x24(%rbp)
jle    122f <ModelicaStrings_scanReal+0xef>
mov    -0x24(%rbp),%eax
add    -0x28(%rbp),%eax
mov    %eax,-0x28(%rbp)
jmp    1234 <ModelicaStrings_scanReal+0xf4>
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x28(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x65,%eax
je     126e <ModelicaStrings_scanReal+0x12e>
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x28(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x45,%eax
jne    12e2 <ModelicaStrings_scanReal+0x1a2>
movl   $0x1,-0x30(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2b,%eax
je     12a9 <ModelicaStrings_scanReal+0x169>
mov    -0x8(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    -0x28(%rbp),%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2d,%eax
jne    12b2 <ModelicaStrings_scanReal+0x172>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x8(%rbp),%rdi
mov    -0x2c(%rbp),%esi
add    -0x28(%rbp),%esi
add    -0x30(%rbp),%esi
call   1050 <MatchUnsignedInteger@plt>
mov    %eax,-0x24(%rbp)
cmpl   $0x0,-0x24(%rbp)
jne    12d6 <ModelicaStrings_scanReal+0x196>
jmp    136e <ModelicaStrings_scanReal+0x22e>
mov    -0x30(%rbp),%eax
add    -0x24(%rbp),%eax
add    -0x28(%rbp),%eax
mov    %eax,-0x28(%rbp)
cmpl   $0x0,-0x28(%rbp)
jle    1369 <ModelicaStrings_scanReal+0x229>
cmpl   $0x64,-0x28(%rbp)
jge    1369 <ModelicaStrings_scanReal+0x229>
lea    -0xa0(%rbp),%rdi
mov    -0x8(%rbp),%rsi
movslq -0x2c(%rbp),%rax
add    %rax,%rsi
add    $0xffffffffffffffff,%rsi
mov    -0x28(%rbp),%edx
call   1030 <strncpy@plt>
movslq -0x28(%rbp),%rax
movb   $0x0,-0xa0(%rbp,%rax,1)
lea    -0xa0(%rbp),%rdi
lea    0xcd2(%rip),%rsi
lea    -0xa8(%rbp),%rdx
call   1040 <sscanf@plt>
cmp    $0x1,%eax
jne    1364 <ModelicaStrings_scanReal+0x224>
movsd  -0xa8(%rbp),%xmm0
ff
mov    -0x20(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x2c(%rbp),%ecx
add    -0x28(%rbp),%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
jmp    1382 <ModelicaStrings_scanReal+0x242>
jmp    1369 <ModelicaStrings_scanReal+0x229>
jmp    136e <ModelicaStrings_scanReal+0x22e>
mov    -0xc(%rbp),%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x20(%rbp),%rax
xorps  %xmm0,%xmm0
movsd  %xmm0,(%rax)
add    $0xb0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ModelicaStrings_scanReal>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x88,%rsp
mov    %r8,0x8(%rsp)
mov    %rcx,0x10(%rsp)
mov    %edx,%ebx
mov    %rdi,%r12
mov    %esi,0x4(%rsp)
call   1060 <ModelicaStrings_skipWhiteSpace@plt>
mov    %eax,%r13d
lea    -0x1(%r13),%r14d
movslq %r14d,%rax
mov    (%r12,%rax,1),%al
cmp    $0x2d,%al
je     1182 <ModelicaStrings_scanReal+0x42>
xor    %r15d,%r15d
cmp    $0x2b,%al
jne    1191 <ModelicaStrings_scanReal+0x51>
mov    $0x1,%r15d
cmp    $0x1,%ebx
je     125f <ModelicaStrings_scanReal+0x11f>
lea    (%r15,%r13,1),%esi
mov    %r12,%rdi
call   1050 <MatchUnsignedInteger@plt>
mov    %eax,%ebx
add    %r15d,%ebx
add    %ebx,%r14d
movslq %r14d,%rax
cmpb   $0x2e,(%r12,%rax,1)
jne    11ca <ModelicaStrings_scanReal+0x8a>
lea    (%rbx,%r13,1),%esi
add    $0x1,%esi
mov    %r12,%rdi
call   1050 <MatchUnsignedInteger@plt>
xor    %ecx,%ecx
test   %eax,%eax
cmovns %eax,%ecx
add    %ecx,%ebx
add    $0x1,%ebx
lea    (%rbx,%r13,1),%eax
movslq %eax,%rsi
mov    -0x1(%rsi,%r12,1),%al
or     $0x20,%al
cmp    $0x65,%al
jne    1202 <ModelicaStrings_scanReal+0xc2>
mov    (%r12,%rsi,1),%al
add    $0xd5,%al
and    $0xfd,%al
cmp    $0x1,%al
mov    $0x1,%ebp
adc    $0x0,%ebp
add    %ebp,%esi
mov    %r12,%rdi
call   1050 <MatchUnsignedInteger@plt>
test   %eax,%eax
je     125f <ModelicaStrings_scanReal+0x11f>
add    %ebx,%eax
add    %ebp,%eax
mov    %eax,%ebx
lea    -0x1(%rbx),%eax
cmp    $0x62,%eax
ja     125f <ModelicaStrings_scanReal+0x11f>
movslq %r13d,%rax
lea    (%r12,%rax,1),%rsi
add    $0xffffffffffffffff,%rsi
lea    0x20(%rsp),%rbp
mov    %rbp,%rdi
mov    %ebx,%edx
call   1030 <strncpy@plt>
mov    %ebx,%eax
movb   $0x0,0x20(%rsp,%rax,1)
lea    0xdce(%rip),%rsi
lea    0x18(%rsp),%rdx
mov    %rbp,%rdi
call   1040 <sscanf@plt>
cmp    $0x1,%eax
jne    125f <ModelicaStrings_scanReal+0x11f>
movsd  0x18(%rsp),%xmm0
mov    0x8(%rsp),%rax
movsd  %xmm0,(%rax)
add    %r13d,%ebx
mov    0x10(%rsp),%rax
mov    %ebx,(%rax)
jmp    1276 <ModelicaStrings_scanReal+0x136>
mov    0x10(%rsp),%rax
mov    0x4(%rsp),%ecx
mov    %ecx,(%rax)
mov    0x8(%rsp),%rax
movq   $0x0,(%rax)
add    $0x88,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [4 x i8] c"%lg\00"
define void @ModelicaStrings_scanReal(i8* %0, i32 %1, i32 %2, i32* %3, double* %4) {
%6 = alloca i8*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32*
%10 = alloca double*
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca [101 x i8]
%16 = alloca double
store i8* %0, i8** %6
store i32 %1, i32* %7
store i32 %2, i32* %8
store i32* %3, i32** %9
store double* %4, double** %10
store i32 0, i32* %11
store i32 0, i32* %12
%17 = load i8*, i8** %6
%18 = load i32, i32* %7
%19 = call i32 @ModelicaStrings_skipWhiteSpace(i8* %17, i32 %18)
store i32 %19, i32* %13
%20 = load i8*, i8** %6
%21 = load i32, i32* %13
%22 = sub nsw i32 %21, 1
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds i8, i8* %20, i64 %23
%25 = load i8, i8* %24
%26 = sext i8 %25 to i32
%27 = icmp eq i32 %26, 43
br i1 %27, label %37, label %28
28: ; preds = %5
%29 = load i8*, i8** %6
%30 = load i32, i32* %13
%31 = sub nsw i32 %30, 1
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %29, i64 %32
%34 = load i8, i8* %33
%35 = sext i8 %34 to i32
%36 = icmp eq i32 %35, 45
br i1 %36, label %37, label %42
37: ; preds = %28, %5
store i32 1, i32* %12
%38 = load i32, i32* %8
%39 = icmp eq i32 %38, 1
br i1 %39, label %40, label %41
40: ; preds = %37
br label %168
41: ; preds = %37
br label %42
42: ; preds = %41, %28
%43 = load i8*, i8** %6
%44 = load i32, i32* %13
%45 = load i32, i32* %12
%46 = add nsw i32 %44, %45
%47 = call i32 @MatchUnsignedInteger(i8* %43, i32 %46)
store i32 %47, i32* %11
%48 = load i32, i32* %11
%49 = load i32, i32* %12
%50 = add nsw i32 %49, %48
store i32 %50, i32* %12
%51 = load i8*, i8** %6
%52 = load i32, i32* %13
%53 = load i32, i32* %12
%54 = add nsw i32 %52, %53
%55 = sub nsw i32 %54, 1
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds i8, i8* %51, i64 %56
%58 = load i8, i8* %57
%59 = sext i8 %58 to i32
%60 = icmp eq i32 %59, 46
br i1 %60, label %61, label %76
61: ; preds = %42
%62 = load i32, i32* %12
%63 = add nsw i32 %62, 1
store i32 %63, i32* %12
%64 = load i8*, i8** %6
%65 = load i32, i32* %13
%66 = load i32, i32* %12
%67 = add nsw i32 %65, %66
%68 = call i32 @MatchUnsignedInteger(i8* %64, i32 %67)
store i32 %68, i32* %11
%69 = load i32, i32* %11
%70 = icmp sgt i32 %69, 0
br i1 %70, label %71, label %75
71: ; preds = %61
%72 = load i32, i32* %11
%73 = load i32, i32* %12
%74 = add nsw i32 %73, %72
store i32 %74, i32* %12
br label %75
75: ; preds = %71, %61
br label %76
76: ; preds = %75, %42
%77 = load i8*, i8** %6
%78 = load i32, i32* %13
%79 = load i32, i32* %12
%80 = add nsw i32 %78, %79
%81 = sub nsw i32 %80, 1
%82 = sext i32 %81 to i64
%83 = getelementptr inbounds i8, i8* %77, i64 %82
%84 = load i8, i8* %83
%85 = sext i8 %84 to i32
%86 = icmp eq i32 %85, 101
br i1 %86, label %98, label %87
87: ; preds = %76
%88 = load i8*, i8** %6
%89 = load i32, i32* %13
%90 = load i32, i32* %12
%91 = add nsw i32 %89, %90
%92 = sub nsw i32 %91, 1
%93 = sext i32 %92 to i64
%94 = getelementptr inbounds i8, i8* %88, i64 %93
%95 = load i8, i8* %94
%96 = sext i8 %95 to i32
%97 = icmp eq i32 %96, 69
br i1 %97, label %98, label %138
98: ; preds = %87, %76
store i32 1, i32* %14
%99 = load i8*, i8** %6
%100 = load i32, i32* %13
%101 = load i32, i32* %12
%102 = add nsw i32 %100, %101
%103 = sext i32 %102 to i64
%104 = getelementptr inbounds i8, i8* %99, i64 %103
%105 = load i8, i8* %104
%106 = sext i8 %105 to i32
%107 = icmp eq i32 %106, 43
br i1 %107, label %118, label %108
108: ; preds = %98
%109 = load i8*, i8** %6
%110 = load i32, i32* %13
%111 = load i32, i32* %12
%112 = add nsw i32 %110, %111
%113 = sext i32 %112 to i64
%114 = getelementptr inbounds i8, i8* %109, i64 %113
%115 = load i8, i8* %114
%116 = sext i8 %115 to i32
%117 = icmp eq i32 %116, 45
br i1 %117, label %118, label %121
118: ; preds = %108, %98
%119 = load i32, i32* %14
%120 = add nsw i32 %119, 1
store i32 %120, i32* %14
br label %121
121: ; preds = %118, %108
%122 = load i8*, i8** %6
%123 = load i32, i32* %13
%124 = load i32, i32* %12
%125 = add nsw i32 %123, %124
%126 = load i32, i32* %14
%127 = add nsw i32 %125, %126
%128 = call i32 @MatchUnsignedInteger(i8* %122, i32 %127)
store i32 %128, i32* %11
%129 = load i32, i32* %11
%130 = icmp eq i32 %129, 0
br i1 %130, label %131, label %132
131: ; preds = %121
br label %168
132: ; preds = %121
%133 = load i32, i32* %14
%134 = load i32, i32* %11
%135 = add nsw i32 %133, %134
%136 = load i32, i32* %12
%137 = add nsw i32 %136, %135
store i32 %137, i32* %12
br label %138
138: ; preds = %132, %87
%139 = load i32, i32* %12
%140 = icmp sgt i32 %139, 0
br i1 %140, label %141, label %167
141: ; preds = %138
%142 = load i32, i32* %12
%143 = icmp slt i32 %142, 100
br i1 %143, label %144, label %167
144: ; preds = %141
%145 = getelementptr inbounds [101 x i8], [101 x i8]* %15, i64 0, i64 0
%146 = load i8*, i8** %6
%147 = load i32, i32* %13
%148 = sext i32 %147 to i64
%149 = getelementptr inbounds i8, i8* %146, i64 %148
%150 = getelementptr inbounds i8, i8* %149, i64 -1
%151 = load i32, i32* %12
%152 = call i32 @strncpy(i8* %145, i8* %150, i32 %151)
%153 = load i32, i32* %12
%154 = sext i32 %153 to i64
%155 = getelementptr inbounds [101 x i8], [101 x i8]* %15, i64 0, i64 %154
store i8 0, i8* %155
%156 = getelementptr inbounds [101 x i8], [101 x i8]* %15, i64 0, i64 0
%157 = call i32 @sscanf(i8* %156, i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), double* %16)
%158 = icmp eq i32 %157, 1
br i1 %158, label %159, label %166
159: ; preds = %144
%160 = load double, double* %16
%161 = load double*, double** %10
store double %160, double* %161
%162 = load i32, i32* %13
%163 = load i32, i32* %12
%164 = add nsw i32 %162, %163
%165 = load i32*, i32** %9
store i32 %164, i32* %165
br label %172
166: ; preds = %144
br label %167
167: ; preds = %166, %141, %138
br label %168
168: ; preds = %167, %131, %40
%169 = load i32, i32* %7
%170 = load i32*, i32** %9
store i32 %169, i32* %170
%171 = load double*, double** %10
store double 0.000000e+00, double* %171
br label %172
172: ; preds = %168, %159
ret void
}

LLVM IR (-O2):
@.str = [4 x i8] c"%lg\00"
define void @ModelicaStrings_scanReal(i8* %0, i32 %1, i32 %2, i32* nocapture writeonly %3, double* nocapture writeonly %4) {
%6 = alloca [101 x i8]
%7 = alloca double
%8 = tail call i32 @ModelicaStrings_skipWhiteSpace(i8* %0, i32 %1)
%9 = add i32 %8, -1
%10 = sext i32 %9 to i64
%11 = getelementptr inbounds i8, i8* %0, i64 %10
%12 = load i8, i8* %11
switch i8 %12, label %15 [
i8 43, label %13
i8 45, label %13
]
13: ; preds = %5, %5
%14 = icmp eq i32 %2, 1
br i1 %14, label %71, label %15
15: ; preds = %5, %13
%16 = phi i32 [ 1, %13 ], [ 0, %5 ]
%17 = add nsw i32 %16, %8
%18 = tail call i32 @MatchUnsignedInteger(i8* %0, i32 %17)
%19 = add nsw i32 %18, %16
%20 = add i32 %9, %19
%21 = sext i32 %20 to i64
%22 = getelementptr inbounds i8, i8* %0, i64 %21
%23 = load i8, i8* %22
%24 = icmp eq i8 %23, 46
br i1 %24, label %25, label %32
25: ; preds = %15
%26 = add nsw i32 %19, 1
%27 = add nsw i32 %26, %8
%28 = tail call i32 @MatchUnsignedInteger(i8* %0, i32 %27)
%29 = icmp sgt i32 %28, 0
%30 = select i1 %29, i32 %28, i32 0
%31 = add nsw i32 %30, %26
br label %32
32: ; preds = %25, %15
%33 = phi i32 [ %19, %15 ], [ %31, %25 ]
%34 = add nsw i32 %33, %8
%35 = add nsw i32 %34, -1
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds i8, i8* %0, i64 %36
%38 = load i8, i8* %37
switch i8 %38, label %52 [
i8 101, label %39
i8 69, label %39
]
39: ; preds = %32, %32
%40 = sext i32 %34 to i64
%41 = getelementptr inbounds i8, i8* %0, i64 %40
%42 = load i8, i8* %41
%43 = icmp eq i8 %42, 43
%44 = icmp eq i8 %42, 45
%45 = or i1 %43, %44
%46 = select i1 %45, i32 2, i32 1
%47 = add nsw i32 %46, %34
%48 = tail call i32 @MatchUnsignedInteger(i8* %0, i32 %47)
%49 = icmp eq i32 %48, 0
%50 = add i32 %48, %33
%51 = add i32 %50, %46
br i1 %49, label %71, label %52
52: ; preds = %39, %32
%53 = phi i32 [ %51, %39 ], [ %33, %32 ]
%54 = add i32 %53, -1
%55 = icmp ult i32 %54, 99
br i1 %55, label %56, label %71
56: ; preds = %52
%57 = getelementptr inbounds [101 x i8], [101 x i8]* %6, i64 0, i64 0
%58 = bitcast double* %7 to i8*
%59 = sext i32 %8 to i64
%60 = getelementptr inbounds i8, i8* %0, i64 %59
%61 = getelementptr inbounds i8, i8* %60, i64 -1
%62 = call i32 @strncpy(i8* %57, i8* %61, i32 %53)
%63 = zext i32 %53 to i64
%64 = getelementptr inbounds [101 x i8], [101 x i8]* %6, i64 0, i64 %63
store i8 0, i8* %64
%65 = call i32 @sscanf(i8* %57, i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), double* %7)
%66 = icmp eq i32 %65, 1
br i1 %66, label %67, label %70
67: ; preds = %56
%68 = load double, double* %7
store double %68, double* %4
%69 = add nsw i32 %53, %8
store i32 %69, i32* %3
br label %72
70: ; preds = %56
br label %71
71: ; preds = %39, %70, %52, %13
store i32 %1, i32* %3
store double 0.000000e+00, double* %4
br label %72
72: ; preds = %67, %71
ret void
}