int perfect(long number) {
  long n, sum = 0;
  int status;
  for (n = 1; n < number; n++) {
    if (0 == number % n) {
      sum += n;
    }
  }
  if (sum == number) {
    status = 1;
  } else
    status = 0;
  return status;
}


x86 assembly (clang, -O0):
<perfect>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movq   $0x0,-0x18(%rbp)
movq   $0x1,-0x10(%rbp)
mov    -0x10(%rbp),%rax
cmp    -0x8(%rbp),%rax
jge    115d <perfect+0x5d>
mov    -0x8(%rbp),%rax
cqto
idivq  -0x10(%rbp)
xor    %eax,%eax
cmp    %rdx,%rax
jne    1147 <perfect+0x47>
mov    -0x10(%rbp),%rax
add    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
jmp    114c <perfect+0x4c>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1118 <perfect+0x18>
mov    -0x18(%rbp),%rax
cmp    -0x8(%rbp),%rax
jne    1177 <perfect+0x77>
movl   $0x1,-0x1c(%rbp)
jmp    117e <perfect+0x7e>
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<perfect>:
mov    %rdi,%r10
cmp    $0x2,%rdi
jl     112a <perfect+0x2a>
lea    -0x1(%r10),%r8
cmp    $0x2,%r10
jne    1131 <perfect+0x31>
mov    $0x1,%r11d
xor    %ecx,%ecx
test   $0x1,%r8b
jne    11d0 <perfect+0xd0>
jmp    11fa <perfect+0xfa>
xor    %ecx,%ecx
jmp    11fa <perfect+0xfa>
mov    %r8,%r9
and    $0xfffffffffffffffe,%r9
mov    $0x1,%eax
xor    %ecx,%ecx
jmp    115c <perfect+0x5c>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
add    %rax,%rcx
lea    0x1(%rdi),%rax
cmp    %r9,%rdi
je     11c6 <perfect+0xc6>
mov    %rax,%r11
mov    %r10,%rax
or     %r11,%rax
shr    $0x20,%rax
je     1180 <perfect+0x80>
mov    %r10,%rax
cqto
idiv   %r11
jmp    1188 <perfect+0x88>
cs nopw 0x0(%rax,%rax,1)
nop
mov    %r10d,%eax
xor    %edx,%edx
div    %r11d
mov    %r11,%rsi
test   %rdx,%rdx
je     1192 <perfect+0x92>
xor    %esi,%esi
lea    0x1(%r11),%rdi
mov    %r10,%rax
or     %rdi,%rax
shr    $0x20,%rax
je     11b0 <perfect+0xb0>
mov    %r10,%rax
cqto
idiv   %rdi
jmp    11b7 <perfect+0xb7>
nopl   0x0(%rax)
mov    %r10d,%eax
xor    %edx,%edx
div    %edi
add    %rsi,%rcx
mov    %rdi,%rax
test   %rdx,%rdx
je     1150 <perfect+0x50>
xor    %eax,%eax
jmp    1150 <perfect+0x50>
add    $0x2,%r11
test   $0x1,%r8b
je     11fa <perfect+0xfa>
mov    %r10,%rax
or     %r11,%rax
shr    $0x20,%rax
je     11e6 <perfect+0xe6>
mov    %r10,%rax
cqto
idiv   %r11
jmp    11ee <perfect+0xee>
mov    %r10d,%eax
xor    %edx,%edx
div    %r11d
xor    %eax,%eax
test   %rdx,%rdx
cmove  %r11,%rax
add    %rax,%rcx
xor    %eax,%eax
cmp    %r10,%rcx
sete   %al
ret

LLVM IR (-O0):
define i32 @perfect(i64 %0) {
%2 = alloca i64
%3 = alloca i64
%4 = alloca i64
%5 = alloca i32
store i64 %0, i64* %2
store i64 0, i64* %4
store i64 1, i64* %3
br label %6
6: ; preds = %20, %1
%7 = load i64, i64* %3
%8 = load i64, i64* %2
%9 = icmp slt i64 %7, %8
br i1 %9, label %10, label %23
10: ; preds = %6
%11 = load i64, i64* %2
%12 = load i64, i64* %3
%13 = srem i64 %11, %12
%14 = icmp eq i64 0, %13
br i1 %14, label %15, label %19
15: ; preds = %10
%16 = load i64, i64* %3
%17 = load i64, i64* %4
%18 = add nsw i64 %17, %16
store i64 %18, i64* %4
br label %19
19: ; preds = %15, %10
br label %20
20: ; preds = %19
%21 = load i64, i64* %3
%22 = add nsw i64 %21, 1
store i64 %22, i64* %3
br label %6
23: ; preds = %6
%24 = load i64, i64* %4
%25 = load i64, i64* %2
%26 = icmp eq i64 %24, %25
br i1 %26, label %27, label %28
27: ; preds = %23
store i32 1, i32* %5
br label %29
28: ; preds = %23
store i32 0, i32* %5
br label %29
29: ; preds = %28, %27
%30 = load i32, i32* %5
ret i32 %30
}

LLVM IR (-O2):
define i32 @perfect(i64 %0) {
%2 = icmp sgt i64 %0, 1
br i1 %2, label %3, label %35
3: ; preds = %1
%4 = add i64 %0, -1
%5 = and i64 %4, 1
%6 = icmp eq i64 %0, 2
br i1 %6, label %25, label %7
7: ; preds = %3
%8 = and i64 %4, -2
br label %9
9: ; preds = %9, %7
%10 = phi i64 [ 0, %7 ], [ %21, %9 ]
%11 = phi i64 [ 1, %7 ], [ %22, %9 ]
%12 = phi i64 [ 0, %7 ], [ %23, %9 ]
%13 = srem i64 %0, %11
%14 = icmp eq i64 %13, 0
%15 = select i1 %14, i64 %11, i64 0
%16 = add nuw nsw i64 %15, %10
%17 = add nuw nsw i64 %11, 1
%18 = srem i64 %0, %17
%19 = icmp eq i64 %18, 0
%20 = select i1 %19, i64 %17, i64 0
%21 = add nuw nsw i64 %20, %16
%22 = add nuw nsw i64 %11, 2
%23 = add i64 %12, 2
%24 = icmp eq i64 %23, %8
br i1 %24, label %25, label %9
25: ; preds = %9, %3
%26 = phi i64 [ undef, %3 ], [ %21, %9 ]
%27 = phi i64 [ 0, %3 ], [ %21, %9 ]
%28 = phi i64 [ 1, %3 ], [ %22, %9 ]
%29 = icmp eq i64 %5, 0
br i1 %29, label %35, label %30
30: ; preds = %25
%31 = srem i64 %0, %28
%32 = icmp eq i64 %31, 0
%33 = select i1 %32, i64 %28, i64 0
%34 = add nuw nsw i64 %33, %27
br label %35
35: ; preds = %30, %25, %1
%36 = phi i64 [ 0, %1 ], [ %26, %25 ], [ %34, %30 ]
%37 = icmp eq i64 %36, %0
%38 = zext i1 %37 to i32
ret i32 %38
}