#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 */
double DBL_EPSILON;
double DBL_MIN;
double fabs(double);
double sqrt(double);
int odrrr_(int *n, double *d__, double *e, int *info) {
  int i__1;
  double d__1;
  int i__;
  double eps, tmp, tmp2, rmin;
  double offdig, safmin;
  int yesrel;
  double smlnum, offdig2;
  --e;
  --d__;
  *info = 1;
  safmin = DBL_MIN;
  eps = DBL_EPSILON;
  smlnum = safmin / eps;
  rmin = sqrt(smlnum);
  yesrel = (1);
  offdig = 0.;
  tmp = sqrt((fabs(d__[1])));
  if (tmp < rmin) {
    yesrel = (0);
  }
  if (!yesrel) {
    goto L11;
  }
  i__1 = *n;
  for (i__ = 2; i__ <= i__1; ++i__) {
    tmp2 = sqrt((d__1 = d__[i__], fabs(d__1)));
    if (tmp2 < rmin) {
      yesrel = (0);
    }
    if (!yesrel) {
      goto L11;
    }
    offdig2 = (d__1 = e[i__ - 1], fabs(d__1)) / (tmp * tmp2);
    if (offdig + offdig2 >= .999) {
      yesrel = (0);
    }
    if (!yesrel) {
      goto L11;
    }
    tmp = tmp2;
    offdig = offdig2;
  }
L11:
  if (yesrel) {
    *info = 0;
    return 0;
  } else {
  }
  return 0;
}


x86 assembly (clang, -O0):
<odrrr_>:
push   %rbp
mov    %rsp,%rbp
sub    $0x90,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %rcx,-0x28(%rbp)
mov    -0x20(%rbp),%rax
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rax
add    $0xfffffffffffffff8,%rax
mov    %rax,-0x18(%rbp)
mov    -0x28(%rbp),%rax
movl   $0x1,(%rax)
mov    0x2e84(%rip),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x70(%rbp)
mov    0x2e84(%rip),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x70(%rbp),%xmm0
divsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x80(%rbp)
movsd  -0x80(%rbp),%xmm0
call   1030 <sqrt@plt>
movsd  %xmm0,-0x60(%rbp)
movl   $0x1,-0x74(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x68(%rbp)
mov    -0x18(%rbp),%rax
movsd  0x8(%rax),%xmm0
movaps 0xe56(%rip),%xmm1
pand   %xmm1,%xmm0
call   1030 <sqrt@plt>
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm1
movsd  -0x60(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    11d3 <odrrr_+0xc3>
movl   $0x0,-0x74(%rbp)
cmpl   $0x0,-0x74(%rbp)
jne    11e2 <odrrr_+0xd2>
jmp    12f0 <odrrr_+0x1e0>
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x2c(%rbp)
movl   $0x2,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
cmp    -0x2c(%rbp),%eax
jg     12eb <odrrr_+0x1db>
mov    -0x18(%rbp),%rax
movslq -0x3c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm0
movaps 0xde4(%rip),%xmm1
pand   %xmm1,%xmm0
call   1030 <sqrt@plt>
movsd  %xmm0,-0x58(%rbp)
movsd  -0x58(%rbp),%xmm1
movsd  -0x60(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    1245 <odrrr_+0x135>
movl   $0x0,-0x74(%rbp)
cmpl   $0x0,-0x74(%rbp)
jne    1254 <odrrr_+0x144>
jmp    12f0 <odrrr_+0x1e0>
mov    -0x20(%rbp),%rax
mov    -0x3c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm0
movaps 0xd89(%rip),%xmm1
pand   %xmm1,%xmm0
movsd  -0x50(%rbp),%xmm1
mulsd  -0x58(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x88(%rbp)
ff
movsd  -0x68(%rbp),%xmm0
addsd  -0x88(%rbp),%xmm0
ff
movsd  0xd6a(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     12b7 <odrrr_+0x1a7>
movl   $0x0,-0x74(%rbp)
cmpl   $0x0,-0x74(%rbp)
jne    12c6 <odrrr_+0x1b6>
jmp    12f0 <odrrr_+0x1e0>
movsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x88(%rbp),%xmm0
ff
movsd  %xmm0,-0x68(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    11f2 <odrrr_+0xe2>
jmp    12f0 <odrrr_+0x1e0>
cmpl   $0x0,-0x74(%rbp)
je     1310 <odrrr_+0x200>
mov    -0x28(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x0,-0x4(%rbp)
jmp    131c <odrrr_+0x20c>
jmp    1315 <odrrr_+0x205>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x90,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<odrrr_>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x20,%rsp
mov    %rcx,%r14
movl   $0x1,(%rcx)
mov    0x2eab(%rip),%rax
movsd  (%rax),%xmm0
mov    0x2eb0(%rip),%rax
divsd  (%rax),%xmm0
mov    %rdx,%r15
mov    %rsi,%r13
mov    %rdi,%r12
xorpd  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jb     1155 <odrrr_+0x45>
sqrtsd %xmm0,%xmm2
jmp    1162 <odrrr_+0x52>
call   1030 <sqrt@plt>
xorpd  %xmm1,%xmm1
movapd %xmm0,%xmm2
movsd  0x0(%r13),%xmm0
andpd  0xe90(%rip),%xmm0
ucomisd %xmm1,%xmm0
movsd  %xmm2,0x8(%rsp)
jb     118b <odrrr_+0x7b>
sqrtsd %xmm0,%xmm3
ucomisd %xmm3,%xmm2
jbe    11a4 <odrrr_+0x94>
jmp    1265 <odrrr_+0x155>
call   1030 <sqrt@plt>
movsd  0x8(%rsp),%xmm2
movapd %xmm0,%xmm3
ucomisd %xmm3,%xmm2
ja     1265 <odrrr_+0x155>
mov    (%r12),%r12d
cmp    $0x2,%r12d
jl     125e <odrrr_+0x14e>
add    $0xffffffffffffffff,%r12
xorpd  %xmm4,%xmm4
xor    %ebx,%ebx
movapd 0xe3c(%rip),%xmm5
movsd  0xe44(%rip),%xmm6
xorpd  %xmm7,%xmm7
movsd  0x8(%r13,%rbx,8),%xmm0
andpd  %xmm5,%xmm0
ucomisd %xmm4,%xmm0
jb     11f0 <odrrr_+0xe0>
sqrtsd %xmm0,%xmm0
ucomisd %xmm0,%xmm2
jbe    122d <odrrr_+0x11d>
jmp    1265 <odrrr_+0x155>
nopl   (%rax)
movsd  %xmm3,0x18(%rsp)
movsd  %xmm7,0x10(%rsp)
call   1030 <sqrt@plt>
movsd  0x10(%rsp),%xmm7
movsd  0xe01(%rip),%xmm6
movapd 0xde9(%rip),%xmm5
xorpd  %xmm4,%xmm4
movsd  0x18(%rsp),%xmm3
movsd  0x8(%rsp),%xmm2
ucomisd %xmm0,%xmm2
ja     1265 <odrrr_+0x155>
movsd  (%r15,%rbx,8),%xmm1
andpd  %xmm5,%xmm1
mulsd  %xmm0,%xmm3
divsd  %xmm3,%xmm1
addsd  %xmm1,%xmm7
ucomisd %xmm6,%xmm7
jae    1265 <odrrr_+0x155>
add    $0x1,%rbx
movapd %xmm1,%xmm7
movapd %xmm0,%xmm3
cmp    %rbx,%r12
jne    11d0 <odrrr_+0xc0>
movl   $0x0,(%r14)
xor    %eax,%eax
add    $0x20,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
@DBL_MIN = global double 0.000000e+00
@DBL_EPSILON = global double 0.000000e+00
define i32 @odrrr_(i32* %0, double* %1, double* %2, i32* %3) {
%5 = alloca i32
%6 = alloca i32*
%7 = alloca double*
%8 = alloca double*
%9 = alloca i32*
%10 = alloca i32
%11 = alloca double
%12 = alloca i32
%13 = alloca double
%14 = alloca double
%15 = alloca double
%16 = alloca double
%17 = alloca double
%18 = alloca double
%19 = alloca i32
%20 = alloca double
%21 = alloca double
store i32* %0, i32** %6
store double* %1, double** %7
store double* %2, double** %8
store i32* %3, i32** %9
%22 = load double*, double** %8
%23 = getelementptr inbounds double, double* %22, i32 -1
store double* %23, double** %8
%24 = load double*, double** %7
%25 = getelementptr inbounds double, double* %24, i32 -1
store double* %25, double** %7
%26 = load i32*, i32** %9
store i32 1, i32* %26
%27 = load double, double* @DBL_MIN
store double %27, double* %18
%28 = load double, double* @DBL_EPSILON
store double %28, double* %13
%29 = load double, double* %18
%30 = load double, double* %13
%31 = fdiv double %29, %30
store double %31, double* %20
%32 = load double, double* %20
%33 = call double @sqrt(double %32)
store double %33, double* %16
store i32 1, i32* %19
store double 0.000000e+00, double* %17
%34 = load double*, double** %7
%35 = getelementptr inbounds double, double* %34, i64 1
%36 = load double, double* %35
%37 = call double @llvm.fabs.f64(double %36)
%38 = call double @sqrt(double %37)
store double %38, double* %14
%39 = load double, double* %14
%40 = load double, double* %16
%41 = fcmp olt double %39, %40
br i1 %41, label %42, label %43
42: ; preds = %4
store i32 0, i32* %19
br label %43
43: ; preds = %42, %4
%44 = load i32, i32* %19
%45 = icmp ne i32 %44, 0
br i1 %45, label %47, label %46
46: ; preds = %43
br label %100
47: ; preds = %43
%48 = load i32*, i32** %6
%49 = load i32, i32* %48
store i32 %49, i32* %10
store i32 2, i32* %12
br label %50
50: ; preds = %96, %47
%51 = load i32, i32* %12
%52 = load i32, i32* %10
%53 = icmp sle i32 %51, %52
br i1 %53, label %54, label %99
54: ; preds = %50
%55 = load double*, double** %7
%56 = load i32, i32* %12
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds double, double* %55, i64 %57
%59 = load double, double* %58
store double %59, double* %11
%60 = load double, double* %11
%61 = call double @llvm.fabs.f64(double %60)
%62 = call double @sqrt(double %61)
store double %62, double* %15
%63 = load double, double* %15
%64 = load double, double* %16
%65 = fcmp olt double %63, %64
br i1 %65, label %66, label %67
66: ; preds = %54
store i32 0, i32* %19
br label %67
67: ; preds = %66, %54
%68 = load i32, i32* %19
%69 = icmp ne i32 %68, 0
br i1 %69, label %71, label %70
70: ; preds = %67
br label %100
71: ; preds = %67
%72 = load double*, double** %8
%73 = load i32, i32* %12
%74 = sub nsw i32 %73, 1
%75 = sext i32 %74 to i64
%76 = getelementptr inbounds double, double* %72, i64 %75
%77 = load double, double* %76
store double %77, double* %11
%78 = load double, double* %11
%79 = call double @llvm.fabs.f64(double %78)
%80 = load double, double* %14
%81 = load double, double* %15
%82 = fmul double %80, %81
%83 = fdiv double %79, %82
store double %83, double* %21
%84 = load double, double* %17
%85 = load double, double* %21
%86 = fadd double %84, %85
%87 = fcmp oge double %86, 0x3FEFF7CED916872B
br i1 %87, label %88, label %89
88: ; preds = %71
store i32 0, i32* %19
br label %89
89: ; preds = %88, %71
%90 = load i32, i32* %19
%91 = icmp ne i32 %90, 0
br i1 %91, label %93, label %92
92: ; preds = %89
br label %100
93: ; preds = %89
%94 = load double, double* %15
store double %94, double* %14
%95 = load double, double* %21
store double %95, double* %17
br label %96
96: ; preds = %93
%97 = load i32, i32* %12
%98 = add nsw i32 %97, 1
store i32 %98, i32* %12
br label %50
99: ; preds = %50
br label %100
100: ; preds = %99, %92, %70, %46
%101 = load i32, i32* %19
%102 = icmp ne i32 %101, 0
br i1 %102, label %103, label %105
103: ; preds = %100
%104 = load i32*, i32** %9
store i32 0, i32* %104
store i32 0, i32* %5
br label %107
105: ; preds = %100
br label %106
106: ; preds = %105
store i32 0, i32* %5
br label %107
107: ; preds = %106, %103
%108 = load i32, i32* %5
ret i32 %108
}

LLVM IR (-O2):
@DBL_MIN = global double 0.000000e+00
@DBL_EPSILON = global double 0.000000e+00
define i32 @odrrr_(i32* nocapture %0, double* nocapture %1, double* nocapture %2, i32* nocapture writeonly %3) {
%5 = getelementptr inbounds double, double* %2, i64 -1
%6 = getelementptr inbounds double, double* %1, i64 -1
store i32 1, i32* %3
%7 = load double, double* @DBL_MIN
%8 = load double, double* @DBL_EPSILON
%9 = fdiv double %7, %8
%10 = tail call double @sqrt(double %9)
%11 = load double, double* %1
%12 = tail call double @llvm.fabs.f64(double %11)
%13 = tail call double @sqrt(double %12)
%14 = fcmp olt double %13, %10
br i1 %14, label %43, label %15
15: ; preds = %4
%16 = load i32, i32* %0
%17 = icmp slt i32 %16, 2
br i1 %17, label %42, label %18
18: ; preds = %15
%19 = add nuw i32 %16, 1
%20 = zext i32 %19 to i64
br label %24
21: ; preds = %33
%22 = add nuw nsw i64 %25, 1
%23 = icmp eq i64 %22, %20
br i1 %23, label %42, label %24
24: ; preds = %18, %21
%25 = phi i64 [ 2, %18 ], [ %22, %21 ]
%26 = phi double [ 0.000000e+00, %18 ], [ %39, %21 ]
%27 = phi double [ %13, %18 ], [ %31, %21 ]
%28 = getelementptr inbounds double, double* %6, i64 %25
%29 = load double, double* %28
%30 = tail call double @llvm.fabs.f64(double %29)
%31 = tail call double @sqrt(double %30)
%32 = fcmp olt double %31, %10
br i1 %32, label %43, label %33
33: ; preds = %24
%34 = add nsw i64 %25, -1
%35 = getelementptr inbounds double, double* %5, i64 %34
%36 = load double, double* %35
%37 = tail call double @llvm.fabs.f64(double %36)
%38 = fmul double %27, %31
%39 = fdiv double %37, %38
%40 = fadd double %26, %39
%41 = fcmp ult double %40, 0x3FEFF7CED916872B
br i1 %41, label %21, label %43
42: ; preds = %21, %15
store i32 0, i32* %3
br label %43
43: ; preds = %33, %24, %4, %42
ret i32 0
}