long Extract_Degrees(char *georef, double *latitude, double *longitude) {
  long i;
  long temp_char;
  long letter_number[4];
  long error_code = 0x0000;
  for (i = 0; i < 4; i++) {
    temp_char = toupper(georef[i]);
    temp_char = temp_char - 65;
    if ((!isalpha(georef[i])) || (temp_char == 8) || (temp_char == 14)) {
      if ((i == 0) || (i == 2))
        error_code |= 0x0010;
      else
        error_code |= 0x0008;
    }
    letter_number[i] = temp_char;
  }
  for (i = 0; i < 4; i++) {
    if (letter_number[i] > 14)
      letter_number[i] -= 2;
    else if (letter_number[i] > 8)
      letter_number[i] -= 1;
  }
  if ((letter_number[0] > 23) || (letter_number[2] > 14))
    error_code |= 0x0010;
  if ((letter_number[1] > 11) || (letter_number[3] > 14))
    error_code |= 0x0008;
  *latitude = (double)(letter_number[1]) * 15 + (double)(letter_number[3]);
  *longitude = (double)(letter_number[0]) * 15 + (double)(letter_number[2]);
  return (error_code);
}


x86 assembly (clang, -O0):
<Extract_Degrees>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movq   $0x0,-0x58(%rbp)
movq   $0x0,-0x20(%rbp)
cmpq   $0x4,-0x20(%rbp)
jge    11f8 <Extract_Degrees+0xd8>
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1030 <toupper@plt>
cltq
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
sub    $0x41,%rax
mov    %rax,-0x28(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1040 <isalpha@plt>
cmp    $0x0,%eax
je     11a2 <Extract_Degrees+0x82>
cmpq   $0x8,-0x28(%rbp)
je     11a2 <Extract_Degrees+0x82>
cmpq   $0xe,-0x28(%rbp)
jne    11da <Extract_Degrees+0xba>
cmpq   $0x0,-0x20(%rbp)
je     11b8 <Extract_Degrees+0x98>
cmpq   $0x2,-0x20(%rbp)
jne    11c9 <Extract_Degrees+0xa9>
mov    -0x58(%rbp),%rax
or     $0x10,%rax
mov    %rax,-0x58(%rbp)
jmp    11d5 <Extract_Degrees+0xb5>
mov    -0x58(%rbp),%rax
or     $0x8,%rax
mov    %rax,-0x58(%rbp)
jmp    11da <Extract_Degrees+0xba>
mov    -0x28(%rbp),%rcx
mov    -0x20(%rbp),%rax
mov    %rcx,-0x50(%rbp,%rax,8)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    1144 <Extract_Degrees+0x24>
movq   $0x0,-0x20(%rbp)
cmpq   $0x4,-0x20(%rbp)
jge    126f <Extract_Degrees+0x14f>
mov    -0x20(%rbp),%rax
cmpq   $0xe,-0x50(%rbp,%rax,8)
jle    1232 <Extract_Degrees+0x112>
mov    -0x20(%rbp),%rax
mov    -0x50(%rbp,%rax,8),%rcx
sub    $0x2,%rcx
mov    %rcx,-0x50(%rbp,%rax,8)
jmp    1259 <Extract_Degrees+0x139>
mov    -0x20(%rbp),%rax
cmpq   $0x8,-0x50(%rbp,%rax,8)
jle    1254 <Extract_Degrees+0x134>
mov    -0x20(%rbp),%rax
mov    -0x50(%rbp,%rax,8),%rcx
sub    $0x1,%rcx
mov    %rcx,-0x50(%rbp,%rax,8)
jmp    1259 <Extract_Degrees+0x139>
jmp    125e <Extract_Degrees+0x13e>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    1200 <Extract_Degrees+0xe0>
cmpq   $0x17,-0x50(%rbp)
jg     1285 <Extract_Degrees+0x165>
cmpq   $0xe,-0x40(%rbp)
jle    1291 <Extract_Degrees+0x171>
mov    -0x58(%rbp),%rax
or     $0x10,%rax
mov    %rax,-0x58(%rbp)
cmpq   $0xb,-0x48(%rbp)
jg     12a7 <Extract_Degrees+0x187>
cmpq   $0xe,-0x38(%rbp)
jle    12b3 <Extract_Degrees+0x193>
mov    -0x58(%rbp),%rax
or     $0x8,%rax
mov    %rax,-0x58(%rbp)
cvtsi2sdq -0x48(%rbp),%xmm0
cvtsi2sdq -0x38(%rbp),%xmm1
movsd  0xd39(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x10(%rbp),%rax
movsd  %xmm0,(%rax)
cvtsi2sdq -0x50(%rbp),%xmm0
cvtsi2sdq -0x40(%rbp),%xmm1
movsd  0xd15(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
mov    -0x18(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x58(%rbp),%rax
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Extract_Degrees>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %rdx,0x30(%rsp)
mov    %rsi,0x28(%rsp)
mov    %rdi,%r12
movsbl (%rdi),%ebx
mov    %ebx,%edi
call   1030 <toupper@plt>
cltq
mov    %rax,0x20(%rsp)
lea    -0x41(%rax),%rbp
mov    %ebx,%edi
call   1040 <isalpha@plt>
test   %eax,%eax
sete   %al
mov    %rbp,0x18(%rsp)
cmp    $0x8,%rbp
sete   %cl
or     %al,%cl
cmp    $0xe,%rbp
sete   %al
or     %cl,%al
movzbl %al,%ebx
shl    $0x4,%rbx
movsbl 0x1(%r12),%ebp
mov    %ebp,%edi
call   1030 <toupper@plt>
movslq %eax,%r15
lea    -0x41(%r15),%r14
mov    %ebp,%edi
call   1040 <isalpha@plt>
lea    0x8(%rbx),%rcx
mov    %r14,0x10(%rsp)
cmp    $0xe,%r14
cmove  %rcx,%rbx
cmp    $0x8,%r14
cmove  %rcx,%rbx
test   %eax,%eax
cmove  %rcx,%rbx
movsbl 0x2(%r12),%ebp
mov    %ebp,%edi
call   1030 <toupper@plt>
movslq %eax,%r14
lea    -0x41(%r14),%r13
mov    %ebp,%edi
call   1040 <isalpha@plt>
mov    %rbx,%rcx
or     $0x10,%rcx
mov    %r13,0x8(%rsp)
cmp    $0xe,%r13
cmove  %rcx,%rbx
cmp    $0x8,%r13
cmove  %rcx,%rbx
test   %eax,%eax
cmove  %rcx,%rbx
movsbl 0x3(%r12),%ebp
mov    %ebp,%edi
call   1030 <toupper@plt>
movslq %eax,%r12
lea    -0x41(%r12),%r13
mov    %ebp,%edi
call   1040 <isalpha@plt>
mov    %rbx,%rcx
or     $0x8,%rcx
cmp    $0xe,%r13
cmove  %rcx,%rbx
cmp    $0x8,%r13
cmove  %rcx,%rbx
test   %eax,%eax
cmove  %rcx,%rbx
mov    0x20(%rsp),%rdx
lea    -0x42(%rdx),%rax
cmp    $0x4a,%edx
cmovl  0x18(%rsp),%rax
lea    -0x43(%rdx),%rcx
cmp    $0x50,%edx
cmovge %rcx,%rax
lea    -0x42(%r15),%rcx
cmp    $0x4a,%r15d
cmovl  0x10(%rsp),%rcx
lea    -0x43(%r15),%rdx
cmp    $0x50,%r15d
cmovge %rdx,%rcx
lea    -0x42(%r14),%rdx
cmp    $0x4a,%r14d
cmovl  0x8(%rsp),%rdx
lea    -0x43(%r14),%rsi
cmp    $0x50,%r14d
cmovge %rsi,%rdx
lea    -0x42(%r12),%rsi
cmp    $0x4a,%r12d
cmovl  %r13,%rsi
lea    -0x43(%r12),%rdi
cmp    $0x50,%r12d
cmovge %rdi,%rsi
mov    %rbx,%rdi
or     $0x10,%rdi
cmp    $0xf,%rdx
cmovge %rdi,%rbx
cmp    $0x18,%rax
cmovge %rdi,%rbx
mov    %rbx,%rdi
or     $0x8,%rdi
cmp    $0xf,%rsi
cmovge %rdi,%rbx
cmp    $0xc,%rcx
cmovge %rdi,%rbx
cvtsi2sd %rcx,%xmm0
cvtsi2sd %rsi,%xmm1
movsd  0xd2b(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
xorps  %xmm1,%xmm1
cvtsi2sd %rax,%xmm1
cvtsi2sd %rdx,%xmm3
mov    0x28(%rsp),%rax
movsd  %xmm0,(%rax)
mulsd  %xmm2,%xmm1
addsd  %xmm3,%xmm1
mov    0x30(%rsp),%rax
movsd  %xmm1,(%rax)
mov    %rbx,%rax
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define i64 @Extract_Degrees(i8* nocapture %0, double* nocapture writeonly %1, double* nocapture writeonly %2) {
%4 = load i8, i8* %0
%5 = sext i8 %4 to i32
%6 = tail call i32 @toupper(i32 %5)
%7 = sext i32 %6 to i64
%8 = add nsw i64 %7, -65
%9 = tail call i32 @isalpha(i32 %5)
%10 = icmp eq i32 %9, 0
%11 = icmp eq i64 %8, 8
%12 = select i1 %10, i1 true, i1 %11
%13 = icmp eq i64 %8, 14
%14 = select i1 %12, i1 true, i1 %13
%15 = select i1 %14, i64 16, i64 0
%16 = getelementptr inbounds i8, i8* %0, i64 1
%17 = load i8, i8* %16
%18 = sext i8 %17 to i32
%19 = tail call i32 @toupper(i32 %18)
%20 = sext i32 %19 to i64
%21 = add nsw i64 %20, -65
%22 = tail call i32 @isalpha(i32 %18)
%23 = icmp eq i32 %22, 0
%24 = icmp eq i64 %21, 8
%25 = select i1 %23, i1 true, i1 %24
%26 = icmp eq i64 %21, 14
%27 = select i1 %25, i1 true, i1 %26
%28 = or i64 %15, 8
%29 = select i1 %27, i64 %28, i64 %15
%30 = getelementptr inbounds i8, i8* %0, i64 2
%31 = load i8, i8* %30
%32 = sext i8 %31 to i32
%33 = tail call i32 @toupper(i32 %32)
%34 = sext i32 %33 to i64
%35 = add nsw i64 %34, -65
%36 = tail call i32 @isalpha(i32 %32)
%37 = icmp eq i32 %36, 0
%38 = icmp eq i64 %35, 8
%39 = select i1 %37, i1 true, i1 %38
%40 = icmp eq i64 %35, 14
%41 = select i1 %39, i1 true, i1 %40
%42 = or i64 %29, 16
%43 = select i1 %41, i64 %42, i64 %29
%44 = getelementptr inbounds i8, i8* %0, i64 3
%45 = load i8, i8* %44
%46 = sext i8 %45 to i32
%47 = tail call i32 @toupper(i32 %46)
%48 = sext i32 %47 to i64
%49 = add nsw i64 %48, -65
%50 = tail call i32 @isalpha(i32 %46)
%51 = icmp eq i32 %50, 0
%52 = icmp eq i64 %49, 8
%53 = select i1 %51, i1 true, i1 %52
%54 = icmp eq i64 %49, 14
%55 = select i1 %53, i1 true, i1 %54
%56 = or i64 %43, 8
%57 = select i1 %55, i64 %56, i64 %43
%58 = icmp sgt i32 %6, 79
%59 = add nsw i64 %7, -67
%60 = icmp sgt i32 %6, 73
%61 = add nsw i64 %7, -66
%62 = select i1 %60, i64 %61, i64 %8
%63 = select i1 %58, i64 %59, i64 %62
%64 = icmp sgt i32 %19, 79
%65 = add nsw i64 %20, -67
%66 = icmp sgt i32 %19, 73
%67 = add nsw i64 %20, -66
%68 = select i1 %66, i64 %67, i64 %21
%69 = select i1 %64, i64 %65, i64 %68
%70 = icmp sgt i32 %33, 79
%71 = add nsw i64 %34, -67
%72 = icmp sgt i32 %33, 73
%73 = add nsw i64 %34, -66
%74 = select i1 %72, i64 %73, i64 %35
%75 = select i1 %70, i64 %71, i64 %74
%76 = icmp sgt i32 %47, 79
%77 = add nsw i64 %48, -67
%78 = icmp sgt i32 %47, 73
%79 = add nsw i64 %48, -66
%80 = select i1 %78, i64 %79, i64 %49
%81 = select i1 %76, i64 %77, i64 %80
%82 = icmp sgt i64 %63, 23
%83 = icmp sgt i64 %75, 14
%84 = select i1 %82, i1 true, i1 %83
%85 = or i64 %57, 16
%86 = select i1 %84, i64 %85, i64 %57
%87 = icmp sgt i64 %69, 11
%88 = icmp sgt i64 %81, 14
%89 = select i1 %87, i1 true, i1 %88
%90 = or i64 %86, 8
%91 = select i1 %89, i64 %90, i64 %86
%92 = sitofp i64 %69 to double
%93 = sitofp i64 %81 to double
%94 = tail call double @llvm.fmuladd.f64(double %92, double 1.500000e+01, double %93)
store double %94, double* %1
%95 = sitofp i64 %63 to double
%96 = sitofp i64 %75 to double
%97 = tail call double @llvm.fmuladd.f64(double %95, double 1.500000e+01, double %96)
store double %97, double* %2
ret i64 %91
}