#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 */
char toupper(char);
double calc_gc(char *s, int n) {
  char c;
  int i, gc;
  if (n <= 0)
    return 0;
  gc = 0;
  for (i = 0; i < n; i++) {
    c = toupper(s[i]);
    if ((c == 'G') || (c == 'C'))
      gc++;
  }
  return (double)gc / (double)n;
}


x86 assembly (clang, -O0):
<calc_gc>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
cmpl   $0x0,-0x14(%rbp)
jg     1136 <calc_gc+0x26>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    11ad <calc_gc+0x9d>
movl   $0x0,-0x20(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    119a <calc_gc+0x8a>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1030 <toupper@plt>
mov    %al,-0x15(%rbp)
movsbl -0x15(%rbp),%eax
cmp    $0x47,%eax
je     117e <calc_gc+0x6e>
movsbl -0x15(%rbp),%eax
cmp    $0x43,%eax
jne    1187 <calc_gc+0x77>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    118c <calc_gc+0x7c>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1144 <calc_gc+0x34>
cvtsi2sdl -0x20(%rbp),%xmm0
cvtsi2sdl -0x14(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<calc_gc>:
test   %esi,%esi
jle    1164 <calc_gc+0x54>
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
mov    %esi,%r14d
mov    %rdi,%r15
mov    %esi,%r12d
xor    %ebx,%ebx
xor    %ebp,%ebp
nopl   0x0(%rax)
movsbl (%r15,%rbx,1),%edi
call   1030 <toupper@plt>
and    $0xfb,%al
xor    %ecx,%ecx
cmp    $0x43,%al
sete   %cl
add    %ecx,%ebp
add    $0x1,%rbx
cmp    %rbx,%r12
jne    1130 <calc_gc+0x20>
cvtsi2sd %ebp,%xmm0
cvtsi2sd %r14d,%xmm1
divsd  %xmm1,%xmm0
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret
xorps  %xmm0,%xmm0
ret

LLVM IR (-O0):
define double @calc_gc(i8* %0, i32 %1) {
%3 = alloca double
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i8
%7 = alloca i32
%8 = alloca i32
store i8* %0, i8** %4
store i32 %1, i32* %5
%9 = load i32, i32* %5
%10 = icmp sle i32 %9, 0
br i1 %10, label %11, label %12
11: ; preds = %2
store double 0.000000e+00, double* %3
br label %44
12: ; preds = %2
store i32 0, i32* %8
store i32 0, i32* %7
br label %13
13: ; preds = %35, %12
%14 = load i32, i32* %7
%15 = load i32, i32* %5
%16 = icmp slt i32 %14, %15
br i1 %16, label %17, label %38
17: ; preds = %13
%18 = load i8*, i8** %4
%19 = load i32, i32* %7
%20 = sext i32 %19 to i64
%21 = getelementptr inbounds i8, i8* %18, i64 %20
%22 = load i8, i8* %21
%23 = call signext i8 @toupper(i8 signext %22)
store i8 %23, i8* %6
%24 = load i8, i8* %6
%25 = sext i8 %24 to i32
%26 = icmp eq i32 %25, 71
br i1 %26, label %31, label %27
27: ; preds = %17
%28 = load i8, i8* %6
%29 = sext i8 %28 to i32
%30 = icmp eq i32 %29, 67
br i1 %30, label %31, label %34
31: ; preds = %27, %17
%32 = load i32, i32* %8
%33 = add nsw i32 %32, 1
store i32 %33, i32* %8
br label %34
34: ; preds = %31, %27
br label %35
35: ; preds = %34
%36 = load i32, i32* %7
%37 = add nsw i32 %36, 1
store i32 %37, i32* %7
br label %13
38: ; preds = %13
%39 = load i32, i32* %8
%40 = sitofp i32 %39 to double
%41 = load i32, i32* %5
%42 = sitofp i32 %41 to double
%43 = fdiv double %40, %42
store double %43, double* %3
br label %44
44: ; preds = %38, %11
%45 = load double, double* %3
ret double %45
}

LLVM IR (-O2):
define double @calc_gc(i8* nocapture %0, i32 %1) {
%3 = icmp slt i32 %1, 1
br i1 %3, label %22, label %4
4: ; preds = %2
%5 = zext i32 %1 to i64
br label %6
6: ; preds = %4, %6
%7 = phi i64 [ 0, %4 ], [ %16, %6 ]
%8 = phi i32 [ 0, %4 ], [ %15, %6 ]
%9 = getelementptr inbounds i8, i8* %0, i64 %7
%10 = load i8, i8* %9
%11 = tail call signext i8 @toupper(i8 signext %10)
%12 = and i8 %11, -5
%13 = icmp eq i8 %12, 67
%14 = zext i1 %13 to i32
%15 = add nuw nsw i32 %8, %14
%16 = add nuw nsw i64 %7, 1
%17 = icmp eq i64 %16, %5
br i1 %17, label %18, label %6
18: ; preds = %6
%19 = sitofp i32 %15 to double
%20 = sitofp i32 %1 to double
%21 = fdiv double %19, %20
br label %22
22: ; preds = %2, %18
%23 = phi double [ %21, %18 ], [ 0.000000e+00, %2 ]
ret double %23
}