order_poly1(poly, ord1) double poly[25];
int *ord1;
{
  int i;
  *ord1 = 0;
  for (i = 0; i < 25; ++i)
    if (poly[i] != 0.0) {
      *ord1 = *ord1 > i ? *ord1 : i;
      ;
    }
}


x86 assembly (clang, -O0):
<order_poly1>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x0,-0x1c(%rbp)
cmpl   $0x19,-0x1c(%rbp)
jge    118b <order_poly1+0x8b>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    114c <order_poly1+0x4c>
jp     114c <order_poly1+0x4c>
jmp    1178 <order_poly1+0x78>
mov    -0x18(%rbp),%rax
mov    (%rax),%eax
cmp    -0x1c(%rbp),%eax
jle    1169 <order_poly1+0x69>
mov    -0x18(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x20(%rbp)
jmp    116f <order_poly1+0x6f>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
jmp    117d <order_poly1+0x7d>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    111d <order_poly1+0x1d>
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<order_poly1>:
movl   $0x0,(%rsi)
xor    %ecx,%ecx
mov    $0x1,%eax
xorpd  %xmm0,%xmm0
jmp    1126 <order_poly1+0x26>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %ecx,(%rsi)
add    $0x2,%rax
movsd  -0x8(%rdi,%rax,8),%xmm1
ucomisd %xmm0,%xmm1
jne    1134 <order_poly1+0x34>
jnp    1146 <order_poly1+0x46>
lea    -0x1(%rax),%r8
movslq %ecx,%rcx
lea    -0x1(%rax),%edx
cmp    %rcx,%r8
cmovge %edx,%ecx
mov    %ecx,(%rsi)
cmp    $0x19,%rax
je     1165 <order_poly1+0x65>
movsd  (%rdi,%rax,8),%xmm1
ucomisd %xmm0,%xmm1
jne    1159 <order_poly1+0x59>
jnp    1122 <order_poly1+0x22>
movslq %ecx,%rdx
cmp    %rdx,%rax
jl     1120 <order_poly1+0x20>
mov    %eax,%ecx
jmp    1120 <order_poly1+0x20>
ret

LLVM IR (-O0):
define i32 @order_poly1(double* %0, i32* %1) {
%3 = alloca i32
%4 = alloca double*
%5 = alloca i32*
%6 = alloca i32
store double* %0, double** %4
store i32* %1, i32** %5
%7 = load i32*, i32** %5
store i32 0, i32* %7
store i32 0, i32* %6
br label %8
8: ; preds = %32, %2
%9 = load i32, i32* %6
%10 = icmp slt i32 %9, 25
br i1 %10, label %11, label %35
11: ; preds = %8
%12 = load double*, double** %4
%13 = load i32, i32* %6
%14 = sext i32 %13 to i64
%15 = getelementptr inbounds double, double* %12, i64 %14
%16 = load double, double* %15
%17 = fcmp une double %16, 0.000000e+00
br i1 %17, label %18, label %31
18: ; preds = %11
%19 = load i32*, i32** %5
%20 = load i32, i32* %19
%21 = load i32, i32* %6
%22 = icmp sgt i32 %20, %21
br i1 %22, label %23, label %26
23: ; preds = %18
%24 = load i32*, i32** %5
%25 = load i32, i32* %24
br label %28
26: ; preds = %18
%27 = load i32, i32* %6
br label %28
28: ; preds = %26, %23
%29 = phi i32 [ %25, %23 ], [ %27, %26 ]
%30 = load i32*, i32** %5
store i32 %29, i32* %30
br label %31
31: ; preds = %28, %11
br label %32
32: ; preds = %31
%33 = load i32, i32* %6
%34 = add nsw i32 %33, 1
store i32 %34, i32* %6
br label %8
35: ; preds = %8
%36 = load i32, i32* %3
ret i32 %36
}

LLVM IR (-O2):
define i32 @order_poly1(double* nocapture %0, i32* nocapture %1) {
store i32 0, i32* %1
br label %3
3: ; preds = %27, %2
%4 = phi i32 [ 0, %2 ], [ %28, %27 ]
%5 = phi i64 [ 0, %2 ], [ %29, %27 ]
%6 = getelementptr inbounds double, double* %0, i64 %5
%7 = load double, double* %6
%8 = fcmp une double %7, 0.000000e+00
br i1 %8, label %9, label %14
9: ; preds = %3
%10 = sext i32 %4 to i64
%11 = icmp slt i64 %5, %10
%12 = trunc i64 %5 to i32
%13 = select i1 %11, i32 %4, i32 %12
store i32 %13, i32* %1
br label %14
14: ; preds = %3, %9
%15 = phi i32 [ %4, %3 ], [ %13, %9 ]
%16 = or i64 %5, 1
%17 = icmp eq i64 %16, 25
br i1 %17, label %30, label %18
18: ; preds = %14
%19 = getelementptr inbounds double, double* %0, i64 %16
%20 = load double, double* %19
%21 = fcmp une double %20, 0.000000e+00
br i1 %21, label %22, label %27
22: ; preds = %18
%23 = sext i32 %15 to i64
%24 = icmp slt i64 %16, %23
%25 = trunc i64 %16 to i32
%26 = select i1 %24, i32 %15, i32 %25
store i32 %26, i32* %1
br label %27
27: ; preds = %22, %18
%28 = phi i32 [ %15, %18 ], [ %26, %22 ]
%29 = add nuw nsw i64 %5, 2
br label %3
30: ; preds = %14
ret i32 undef
}