ereal(char *ptcadea) {
  int band = 1, contpuntos = 0, i;
  for (i = 0; ptcadea[i]; i++) {
    if (i == 0) {
      if (ptcadea[i] != '+' && ptcadea[i] != '-' && ptcadea[i] != '.' &&
          !(ptcadea[i] >= '0' && ptcadea[i] <= '9'))
        band = 0;
    } else if (ptcadea[i] != '.' && !(ptcadea[i] >= '0' && ptcadea[i] <= '9'))
      band = 0;
  }
  if (ptcadea[i] != '.')
    contpuntos++;
  if (contpuntos > 1)
    band = 0;
  return band;
}


x86 assembly (clang, -O0):
<ereal>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movl   $0x1,-0xc(%rbp)
movl   $0x0,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
cmpb   $0x0,(%rax,%rcx,1)
je     120c <ereal+0x10c>
cmpl   $0x0,-0x14(%rbp)
jne    11ae <ereal+0xae>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2b,%eax
je     11a9 <ereal+0xa9>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2d,%eax
je     11a9 <ereal+0xa9>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2e,%eax
je     11a9 <ereal+0xa9>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x30,%eax
jl     11a2 <ereal+0xa2>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x39,%eax
jle    11a9 <ereal+0xa9>
movl   $0x0,-0xc(%rbp)
jmp    11f9 <ereal+0xf9>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2e,%eax
je     11f4 <ereal+0xf4>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x30,%eax
jl     11ed <ereal+0xed>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x39,%eax
jle    11f4 <ereal+0xf4>
movl   $0x0,-0xc(%rbp)
jmp    11f9 <ereal+0xf9>
jmp    11fe <ereal+0xfe>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    111d <ereal+0x1d>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2e,%eax
je     122a <ereal+0x12a>
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
cmpl   $0x1,-0x10(%rbp)
jle    123b <ereal+0x13b>
movl   $0x0,-0xc(%rbp)
mov    -0xc(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<ereal>:
mov    (%rdi),%cl
mov    $0x1,%eax
lea    -0x2d(%rcx),%edx
cmp    $0x2,%dl
jb     1123 <ereal+0x23>
test   %cl,%cl
je     114f <ereal+0x4f>
cmp    $0x2b,%cl
je     1123 <ereal+0x23>
add    $0xd0,%cl
xor    %eax,%eax
cmp    $0xa,%cl
setb   %al
mov    0x1(%rdi),%cl
test   %cl,%cl
je     114f <ereal+0x4f>
add    $0x2,%rdi
xchg   %ax,%ax
lea    -0x30(%rcx),%edx
cmp    $0xa,%dl
mov    $0x0,%edx
cmovb  %eax,%edx
cmp    $0x2e,%cl
cmovne %edx,%eax
movzbl (%rdi),%ecx
add    $0x1,%rdi
test   %cl,%cl
jne    1130 <ereal+0x30>
ret

LLVM IR (-O0):
define i32 @ereal(i8* %0) {
%2 = alloca i8*
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
store i8* %0, i8** %2
store i32 1, i32* %3
store i32 0, i32* %4
store i32 0, i32* %5
br label %6
6: ; preds = %85, %1
%7 = load i8*, i8** %2
%8 = load i32, i32* %5
%9 = sext i32 %8 to i64
%10 = getelementptr inbounds i8, i8* %7, i64 %9
%11 = load i8, i8* %10
%12 = icmp ne i8 %11, 0
br i1 %12, label %13, label %88
13: ; preds = %6
%14 = load i32, i32* %5
%15 = icmp eq i32 %14, 0
br i1 %15, label %16, label %58
16: ; preds = %13
%17 = load i8*, i8** %2
%18 = load i32, i32* %5
%19 = sext i32 %18 to i64
%20 = getelementptr inbounds i8, i8* %17, i64 %19
%21 = load i8, i8* %20
%22 = sext i8 %21 to i32
%23 = icmp ne i32 %22, 43
br i1 %23, label %24, label %57
24: ; preds = %16
%25 = load i8*, i8** %2
%26 = load i32, i32* %5
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds i8, i8* %25, i64 %27
%29 = load i8, i8* %28
%30 = sext i8 %29 to i32
%31 = icmp ne i32 %30, 45
br i1 %31, label %32, label %57
32: ; preds = %24
%33 = load i8*, i8** %2
%34 = load i32, i32* %5
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds i8, i8* %33, i64 %35
%37 = load i8, i8* %36
%38 = sext i8 %37 to i32
%39 = icmp ne i32 %38, 46
br i1 %39, label %40, label %57
40: ; preds = %32
%41 = load i8*, i8** %2
%42 = load i32, i32* %5
%43 = sext i32 %42 to i64
%44 = getelementptr inbounds i8, i8* %41, i64 %43
%45 = load i8, i8* %44
%46 = sext i8 %45 to i32
%47 = icmp sge i32 %46, 48
br i1 %47, label %48, label %56
48: ; preds = %40
%49 = load i8*, i8** %2
%50 = load i32, i32* %5
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds i8, i8* %49, i64 %51
%53 = load i8, i8* %52
%54 = sext i8 %53 to i32
%55 = icmp sle i32 %54, 57
br i1 %55, label %57, label %56
56: ; preds = %48, %40
store i32 0, i32* %3
br label %57
57: ; preds = %56, %48, %32, %24, %16
br label %84
58: ; preds = %13
%59 = load i8*, i8** %2
%60 = load i32, i32* %5
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds i8, i8* %59, i64 %61
%63 = load i8, i8* %62
%64 = sext i8 %63 to i32
%65 = icmp ne i32 %64, 46
br i1 %65, label %66, label %83
66: ; preds = %58
%67 = load i8*, i8** %2
%68 = load i32, i32* %5
%69 = sext i32 %68 to i64
%70 = getelementptr inbounds i8, i8* %67, i64 %69
%71 = load i8, i8* %70
%72 = sext i8 %71 to i32
%73 = icmp sge i32 %72, 48
br i1 %73, label %74, label %82
74: ; preds = %66
%75 = load i8*, i8** %2
%76 = load i32, i32* %5
%77 = sext i32 %76 to i64
%78 = getelementptr inbounds i8, i8* %75, i64 %77
%79 = load i8, i8* %78
%80 = sext i8 %79 to i32
%81 = icmp sle i32 %80, 57
br i1 %81, label %83, label %82
82: ; preds = %74, %66
store i32 0, i32* %3
br label %83
83: ; preds = %82, %74, %58
br label %84
84: ; preds = %83, %57
br label %85
85: ; preds = %84
%86 = load i32, i32* %5
%87 = add nsw i32 %86, 1
store i32 %87, i32* %5
br label %6
88: ; preds = %6
%89 = load i8*, i8** %2
%90 = load i32, i32* %5
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds i8, i8* %89, i64 %91
%93 = load i8, i8* %92
%94 = sext i8 %93 to i32
%95 = icmp ne i32 %94, 46
br i1 %95, label %96, label %99
96: ; preds = %88
%97 = load i32, i32* %4
%98 = add nsw i32 %97, 1
store i32 %98, i32* %4
br label %99
99: ; preds = %96, %88
%100 = load i32, i32* %4
%101 = icmp sgt i32 %100, 1
br i1 %101, label %102, label %103
102: ; preds = %99
store i32 0, i32* %3
br label %103
103: ; preds = %102, %99
%104 = load i32, i32* %3
ret i32 %104
}

LLVM IR (-O2):
define i32 @ereal(i8* nocapture %0) {
%2 = load i8, i8* %0
switch i8 %2, label %3 [
i8 0, label %25
i8 43, label %7
i8 45, label %7
i8 46, label %7
]
3: ; preds = %1
%4 = add i8 %2, -48
%5 = icmp ult i8 %4, 10
%6 = zext i1 %5 to i32
br label %7
7: ; preds = %1, %1, %1, %3
%8 = phi i32 [ %6, %3 ], [ 1, %1 ], [ 1, %1 ], [ 1, %1 ]
%9 = getelementptr inbounds i8, i8* %0, i64 1
%10 = load i8, i8* %9
%11 = icmp eq i8 %10, 0
br i1 %11, label %25, label %12
12: ; preds = %7, %12
%13 = phi i64 [ %21, %12 ], [ 1, %7 ]
%14 = phi i8 [ %23, %12 ], [ %10, %7 ]
%15 = phi i32 [ %20, %12 ], [ %8, %7 ]
%16 = icmp eq i8 %14, 46
%17 = add i8 %14, -48
%18 = icmp ult i8 %17, 10
%19 = or i1 %16, %18
%20 = select i1 %19, i32 %15, i32 0
%21 = add nuw i64 %13, 1
%22 = getelementptr inbounds i8, i8* %0, i64 %21
%23 = load i8, i8* %22
%24 = icmp eq i8 %23, 0
br i1 %24, label %25, label %12
25: ; preds = %12, %1, %7
%26 = phi i32 [ 1, %1 ], [ %8, %7 ], [ %20, %12 ]
ret i32 %26
}