int recput(ncid, recnum, datap)
int ncid;
long recnum;
void **datap;
{
  int iv;
  int rvids[2000];
  int nrvars = numrecvars(ncid, rvids);
  long start[100];
  long edges[100];
  if (nrvars == -1)
    return -1;
  start[0] = recnum;
  for (iv = 1; iv < nrvars; iv++)
    start[iv] = 0;
  for (iv = 0; iv < nrvars; iv++) {
    if (datap[iv] != 0) {
      (void)dimsizes(ncid, rvids[iv], edges);
      edges[0] = 1;
      if (ncvarput(ncid, rvids[iv], start, edges, datap[iv]) == -1)
        return -1;
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<recput>:
push   %rbp
mov    %rsp,%rbp
sub    $0x25b0,%rsp
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x8(%rbp),%edi
lea    -0x1f60(%rbp),%rsi
mov    $0x0,%al
call   1030 <numrecvars@plt>
mov    %eax,-0x1f64(%rbp)
cmpl   $0xffffffff,-0x1f64(%rbp)
jne    1176 <recput+0x46>
movl   $0xffffffff,-0x4(%rbp)
jmp    1268 <recput+0x138>
mov    -0x10(%rbp),%rax
mov    %rax,-0x2290(%rbp)
movl   $0x1,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x1f64(%rbp),%eax
jge    11b5 <recput+0x85>
movslq -0x1c(%rbp),%rax
movq   $0x0,-0x2290(%rbp,%rax,8)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1188 <recput+0x58>
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x1f64(%rbp),%eax
jge    1261 <recput+0x131>
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
cmpq   $0x0,(%rax,%rcx,8)
je     124e <recput+0x11e>
mov    -0x8(%rbp),%edi
movslq -0x1c(%rbp),%rax
mov    -0x1f60(%rbp,%rax,4),%esi
lea    -0x25b0(%rbp),%rdx
mov    $0x0,%al
call   1050 <dimsizes@plt>
movq   $0x1,-0x25b0(%rbp)
mov    -0x8(%rbp),%edi
movslq -0x1c(%rbp),%rax
mov    -0x1f60(%rbp,%rax,4),%esi
lea    -0x2290(%rbp),%rdx
lea    -0x25b0(%rbp),%rcx
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%r8
mov    (%rax,%r8,8),%r8
mov    $0x0,%al
call   1040 <ncvarput@plt>
cmp    $0xffffffff,%eax
jne    1249 <recput+0x119>
movl   $0xffffffff,-0x4(%rbp)
jmp    1268 <recput+0x138>
jmp    124e <recput+0x11e>
jmp    1253 <recput+0x123>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    11bc <recput+0x8c>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x25b0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<recput>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x2588,%rsp
mov    %rdx,%rbx
mov    %rsi,%r15
mov    %edi,%r12d
lea    0x640(%rsp),%rsi
xor    %eax,%eax
call   1030 <numrecvars@plt>
cmp    $0xffffffff,%eax
je     1200 <recput+0xc0>
mov    %eax,%r14d
mov    %r15,(%rsp)
cmp    $0x2,%eax
jl     1194 <recput+0x54>
lea    0x8(%rsp),%rdi
lea    -0x1(%r14),%edx
shl    $0x3,%rdx
xor    %esi,%esi
call   1060 <memset@plt>
jmp    119c <recput+0x5c>
xor    %eax,%eax
cmp    $0x1,%r14d
jne    1209 <recput+0xc9>
mov    %r14d,%r13d
lea    0x320(%rsp),%r14
mov    %rsp,%r15
xor    %ebp,%ebp
jmp    11b9 <recput+0x79>
xchg   %ax,%ax
add    $0x1,%rbp
cmp    %rbp,%r13
je     1207 <recput+0xc7>
cmpq   $0x0,(%rbx,%rbp,8)
je     11b0 <recput+0x70>
mov    0x640(%rsp,%rbp,4),%esi
mov    %r12d,%edi
mov    %r14,%rdx
xor    %eax,%eax
call   1050 <dimsizes@plt>
movq   $0x1,0x320(%rsp)
mov    0x640(%rsp,%rbp,4),%esi
mov    (%rbx,%rbp,8),%r8
mov    %r12d,%edi
mov    %r15,%rdx
mov    %r14,%rcx
xor    %eax,%eax
call   1040 <ncvarput@plt>
cmp    $0xffffffff,%eax
jne    11b0 <recput+0x70>
mov    $0xffffffff,%eax
jmp    1209 <recput+0xc9>
xor    %eax,%eax
add    $0x2588,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @recput(i32 %0, i64 %1, i8** %2) {
%4 = alloca i32
%5 = alloca i32
%6 = alloca i64
%7 = alloca i8**
%8 = alloca i32
%9 = alloca [2000 x i32]
%10 = alloca i32
%11 = alloca [100 x i64]
%12 = alloca [100 x i64]
store i32 %0, i32* %5
store i64 %1, i64* %6
store i8** %2, i8*** %7
%13 = load i32, i32* %5
%14 = getelementptr inbounds [2000 x i32], [2000 x i32]* %9, i64 0, i64 0
%15 = call i32 (i32, i32*, ...) bitcast (i32 (...)* @numrecvars to i32 (i32, i32*, ...)*)(i32 %13, i32* %14)
store i32 %15, i32* %10
%16 = load i32, i32* %10
%17 = icmp eq i32 %16, -1
br i1 %17, label %18, label %19
18: ; preds = %3
store i32 -1, i32* %4
br label %75
19: ; preds = %3
%20 = load i64, i64* %6
%21 = getelementptr inbounds [100 x i64], [100 x i64]* %11, i64 0, i64 0
store i64 %20, i64* %21
store i32 1, i32* %8
br label %22
22: ; preds = %30, %19
%23 = load i32, i32* %8
%24 = load i32, i32* %10
%25 = icmp slt i32 %23, %24
br i1 %25, label %26, label %33
26: ; preds = %22
%27 = load i32, i32* %8
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds [100 x i64], [100 x i64]* %11, i64 0, i64 %28
store i64 0, i64* %29
br label %30
30: ; preds = %26
%31 = load i32, i32* %8
%32 = add nsw i32 %31, 1
store i32 %32, i32* %8
br label %22
33: ; preds = %22
store i32 0, i32* %8
br label %34
34: ; preds = %71, %33
%35 = load i32, i32* %8
%36 = load i32, i32* %10
%37 = icmp slt i32 %35, %36
br i1 %37, label %38, label %74
38: ; preds = %34
%39 = load i8**, i8*** %7
%40 = load i32, i32* %8
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds i8*, i8** %39, i64 %41
%43 = load i8*, i8** %42
%44 = icmp ne i8* %43, null
br i1 %44, label %45, label %70
45: ; preds = %38
%46 = load i32, i32* %5
%47 = load i32, i32* %8
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds [2000 x i32], [2000 x i32]* %9, i64 0, i64 %48
%50 = load i32, i32* %49
%51 = getelementptr inbounds [100 x i64], [100 x i64]* %12, i64 0, i64 0
%52 = call i32 (i32, i32, i64*, ...) bitcast (i32 (...)* @dimsizes to i32 (i32, i32, i64*, ...)*)(i32 %46, i32 %50, i64* %51)
%53 = getelementptr inbounds [100 x i64], [100 x i64]* %12, i64 0, i64 0
store i64 1, i64* %53
%54 = load i32, i32* %5
%55 = load i32, i32* %8
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds [2000 x i32], [2000 x i32]* %9, i64 0, i64 %56
%58 = load i32, i32* %57
%59 = getelementptr inbounds [100 x i64], [100 x i64]* %11, i64 0, i64 0
%60 = getelementptr inbounds [100 x i64], [100 x i64]* %12, i64 0, i64 0
%61 = load i8**, i8*** %7
%62 = load i32, i32* %8
%63 = sext i32 %62 to i64
%64 = getelementptr inbounds i8*, i8** %61, i64 %63
%65 = load i8*, i8** %64
%66 = call i32 (i32, i32, i64*, i64*, i8*, ...) bitcast (i32 (...)* @ncvarput to i32 (i32, i32, i64*, i64*, i8*, ...)*)(i32 %54, i32 %58, i64* %59, i64* %60, i8* %65)
%67 = icmp eq i32 %66, -1
br i1 %67, label %68, label %69
68: ; preds = %45
store i32 -1, i32* %4
br label %75
69: ; preds = %45
br label %70
70: ; preds = %69, %38
br label %71
71: ; preds = %70
%72 = load i32, i32* %8
%73 = add nsw i32 %72, 1
store i32 %73, i32* %8
br label %34
74: ; preds = %34
store i32 0, i32* %4
br label %75
75: ; preds = %74, %68, %18
%76 = load i32, i32* %4
ret i32 %76
}

LLVM IR (-O2):
define i32 @recput(i32 %0, i64 %1, i8** nocapture %2) {
%4 = alloca [2000 x i32]
%5 = alloca [100 x i64]
%6 = alloca [100 x i64]
%7 = bitcast [2000 x i32]* %4 to i8*
%8 = getelementptr inbounds [2000 x i32], [2000 x i32]* %4, i64 0, i64 0
%9 = call i32 (i32, i32*, ...) bitcast (i32 (...)* @numrecvars to i32 (i32, i32*, ...)*)(i32 %0, i32* %8)
%10 = bitcast [100 x i64]* %5 to i8*
%11 = bitcast [100 x i64]* %6 to i8*
%12 = icmp eq i32 %9, -1
br i1 %12, label %43, label %13
13: ; preds = %3
%14 = getelementptr inbounds [100 x i64], [100 x i64]* %5, i64 0, i64 0
store i64 %1, i64* %14
%15 = icmp sgt i32 %9, 1
br i1 %15, label %16, label %22
16: ; preds = %13
%17 = getelementptr inbounds [100 x i64], [100 x i64]* %5, i64 0, i64 1
%18 = bitcast i64* %17 to i8*
%19 = add nsw i32 %9, -1
%20 = zext i32 %19 to i64
%21 = shl nuw nsw i64 %20, 3
br label %24
22: ; preds = %13
%23 = icmp eq i32 %9, 1
br i1 %23, label %24, label %43
24: ; preds = %16, %22
%25 = getelementptr inbounds [100 x i64], [100 x i64]* %6, i64 0, i64 0
%26 = zext i32 %9 to i64
br label %27
27: ; preds = %24, %40
%28 = phi i64 [ 0, %24 ], [ %41, %40 ]
%29 = getelementptr inbounds i8*, i8** %2, i64 %28
%30 = load i8*, i8** %29
%31 = icmp eq i8* %30, null
br i1 %31, label %40, label %32
32: ; preds = %27
%33 = getelementptr inbounds [2000 x i32], [2000 x i32]* %4, i64 0, i64 %28
%34 = load i32, i32* %33
%35 = call i32 (i32, i32, i64*, ...) bitcast (i32 (...)* @dimsizes to i32 (i32, i32, i64*, ...)*)(i32 %0, i32 %34, i64* %25)
store i64 1, i64* %25
%36 = load i32, i32* %33
%37 = load i8*, i8** %29
%38 = call i32 (i32, i32, i64*, i64*, i8*, ...) bitcast (i32 (...)* @ncvarput to i32 (i32, i32, i64*, i64*, i8*, ...)*)(i32 %0, i32 %36, i64* %14, i64* %25, i8* %37)
%39 = icmp eq i32 %38, -1
br i1 %39, label %43, label %40
40: ; preds = %27, %32
%41 = add nuw nsw i64 %28, 1
%42 = icmp eq i64 %41, %26
br i1 %42, label %43, label %27
43: ; preds = %32, %40, %22, %3
%44 = phi i32 [ -1, %3 ], [ 0, %22 ], [ -1, %32 ], [ 0, %40 ]
ret i32 %44
}