double potm(days)
double days;
{
  double N, Msol, Ec, LambdaSol, l, Mm, Ev, Ac, A3, Mmprime;
  double A4, lprime, V, ldprime, D, Nm;
  N = 360 * days / 365.242191;
  adj360(&N);
  Msol = N + 279.403303 - 282.768422;
  adj360(&Msol);
  Ec = 360 / 3.14159265358979323846 * 0.016713 * sin(dtor(Msol));
  LambdaSol = N + Ec + 279.403303;
  adj360(&LambdaSol);
  l = 13.1763966 * days + 318.351648;
  adj360(&l);
  Mm = l - (0.1114041 * days) - 36.340410;
  adj360(&Mm);
  Nm = 318.510107 - (0.0529539 * days);
  adj360(&Nm);
  Ev = 1.2739 * sin(dtor(2 * (l - LambdaSol) - Mm));
  Ac = 0.1858 * sin(dtor(Msol));
  A3 = 0.37 * sin(dtor(Msol));
  Mmprime = Mm + Ev - Ac - A3;
  Ec = 6.2886 * sin(dtor(Mmprime));
  A4 = 0.214 * sin(dtor(2 * Mmprime));
  lprime = l + Ev + Ec - Ac + A4;
  V = 0.6583 * sin(dtor(2 * (lprime - LambdaSol)));
  ldprime = lprime + V;
  D = ldprime - LambdaSol;
  return (50.0 * (1 - cos(dtor(D))));
}


x86 assembly (clang, -O0):
<potm>:
push   %rbp
mov    %rsp,%rbp
sub    $0x90,%rsp
movsd  %xmm0,-0x8(%rbp)
movsd  0xf40(%rip),%xmm0
mulsd  -0x8(%rbp),%xmm0
movsd  0xf2b(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x10(%rbp)
lea    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1040 <adj360@plt>
movsd  0xef7(%rip),%xmm0
addsd  -0x10(%rbp),%xmm0
movsd  0xefa(%rip),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x18(%rbp)
lea    -0x18(%rbp),%rdi
mov    $0x0,%al
call   1040 <adj360@plt>
movsd  -0x18(%rbp),%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
movaps %xmm0,%xmm1
movsd  0xebe(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x20(%rbp)
movsd  -0x10(%rbp),%xmm0
addsd  -0x20(%rbp),%xmm0
movsd  0xe9b(%rip),%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
lea    -0x28(%rbp),%rdi
mov    $0x0,%al
call   1040 <adj360@plt>
movsd  -0x8(%rbp),%xmm0
movsd  0xe6a(%rip),%xmm1
mulsd  %xmm1,%xmm0
movsd  0xe66(%rip),%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x30(%rbp)
lea    -0x30(%rbp),%rdi
mov    $0x0,%al
call   1040 <adj360@plt>
movsd  -0x30(%rbp),%xmm1
movsd  -0x8(%rbp),%xmm0
movsd  0xe30(%rip),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  0xe18(%rip),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
lea    -0x38(%rbp),%rdi
mov    $0x0,%al
call   1040 <adj360@plt>
movsd  -0x8(%rbp),%xmm0
movsd  0xde7(%rip),%xmm1
mulsd  %xmm1,%xmm0
movsd  0xde3(%rip),%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x88(%rbp)
ff
lea    -0x88(%rbp),%rdi
mov    $0x0,%al
call   1040 <adj360@plt>
movsd  -0x30(%rbp),%xmm0
subsd  -0x28(%rbp),%xmm0
movsd  -0x38(%rbp),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
addsd  %xmm0,%xmm0
addsd  %xmm1,%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
movaps %xmm0,%xmm1
movsd  0xd70(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  -0x18(%rbp),%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
movaps %xmm0,%xmm1
movsd  0xd3f(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  -0x18(%rbp),%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
movaps %xmm0,%xmm1
movsd  0xd0e(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x38(%rbp),%xmm0
addsd  -0x40(%rbp),%xmm0
subsd  -0x48(%rbp),%xmm0
subsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x58(%rbp),%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
movaps %xmm0,%xmm1
movsd  0xcc4(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x20(%rbp)
movsd  0xca3(%rip),%xmm0
mulsd  -0x58(%rbp),%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
movaps %xmm0,%xmm1
movsd  0xc8b(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
movsd  -0x30(%rbp),%xmm0
addsd  -0x40(%rbp),%xmm0
addsd  -0x20(%rbp),%xmm0
subsd  -0x48(%rbp),%xmm0
addsd  -0x60(%rbp),%xmm0
movsd  %xmm0,-0x68(%rbp)
movsd  -0x68(%rbp),%xmm1
subsd  -0x28(%rbp),%xmm1
movsd  0xc4a(%rip),%xmm0
mulsd  %xmm1,%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
movaps %xmm0,%xmm1
movsd  0xc23(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x70(%rbp)
movsd  -0x68(%rbp),%xmm0
addsd  -0x70(%rbp),%xmm0
movsd  %xmm0,-0x78(%rbp)
movsd  -0x78(%rbp),%xmm0
subsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x80(%rbp)
movsd  -0x80(%rbp),%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
cvtsi2sd %eax,%xmm0
call   1050 <cos@plt>
movsd  0xbd7(%rip),%xmm1
subsd  %xmm0,%xmm1
movsd  0xbc3(%rip),%xmm0
mulsd  %xmm1,%xmm0
add    $0x90,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<potm>:
sub    $0x58,%rsp
movsd  %xmm0,0x8(%rsp)
movsd  0xeae(%rip),%xmm1
mulsd  %xmm0,%xmm1
divsd  0xeaa(%rip),%xmm1
movsd  %xmm1,0x30(%rsp)
lea    0x30(%rsp),%rdi
xor    %eax,%eax
call   1040 <adj360@plt>
movsd  0x30(%rsp),%xmm0
addsd  0xe92(%rip),%xmm0
addsd  0xe92(%rip),%xmm0
movsd  %xmm0,0x20(%rsp)
lea    0x20(%rsp),%rdi
xor    %eax,%eax
call   1040 <adj360@plt>
movsd  0x20(%rsp),%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
mulsd  0xe67(%rip),%xmm0
addsd  0x30(%rsp),%xmm0
addsd  0xe49(%rip),%xmm0
movsd  %xmm0,0x18(%rsp)
lea    0x18(%rsp),%rdi
xor    %eax,%eax
call   1040 <adj360@plt>
movsd  0xe47(%rip),%xmm0
mulsd  0x8(%rsp),%xmm0
addsd  0xe41(%rip),%xmm0
movsd  %xmm0,0x10(%rsp)
lea    0x10(%rsp),%rdi
xor    %eax,%eax
call   1040 <adj360@plt>
movsd  0xe2f(%rip),%xmm0
mulsd  0x8(%rsp),%xmm0
addsd  0x10(%rsp),%xmm0
addsd  0xe23(%rip),%xmm0
movsd  %xmm0,0x28(%rsp)
lea    0x28(%rsp),%rdi
xor    %eax,%eax
call   1040 <adj360@plt>
movsd  0x8(%rsp),%xmm0
mulsd  0xe0b(%rip),%xmm0
addsd  0xe0b(%rip),%xmm0
movsd  %xmm0,0x50(%rsp)
lea    0x50(%rsp),%rdi
xor    %eax,%eax
call   1040 <adj360@plt>
movsd  0x10(%rsp),%xmm0
subsd  0x18(%rsp),%xmm0
addsd  %xmm0,%xmm0
subsd  0x28(%rsp),%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
mulsd  0xdd0(%rip),%xmm0
movsd  %xmm0,0x8(%rsp)
movsd  0x20(%rsp),%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
mulsd  0xdb1(%rip),%xmm0
movsd  %xmm0,0x38(%rsp)
movsd  0x20(%rsp),%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
mulsd  0xd92(%rip),%xmm0
movsd  0x28(%rsp),%xmm1
addsd  0x8(%rsp),%xmm1
subsd  0x38(%rsp),%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,0x40(%rsp)
mov    $0x1,%al
call   1060 <dtor@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
mulsd  0xd63(%rip),%xmm0
movsd  %xmm0,0x48(%rsp)
movsd  0x40(%rsp),%xmm0
addsd  %xmm0,%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
movapd %xmm0,%xmm1
mulsd  0xd3c(%rip),%xmm1
movsd  0x8(%rsp),%xmm0
addsd  0x10(%rsp),%xmm0
addsd  0x48(%rsp),%xmm0
subsd  0x38(%rsp),%xmm0
addsd  %xmm0,%xmm1
movsd  %xmm1,0x8(%rsp)
subsd  0x18(%rsp),%xmm1
addsd  %xmm1,%xmm1
movapd %xmm1,%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
call   1030 <sin@plt>
mulsd  0xcf9(%rip),%xmm0
addsd  0x8(%rsp),%xmm0
subsd  0x18(%rsp),%xmm0
mov    $0x1,%al
call   1060 <dtor@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
call   1050 <cos@plt>
movsd  0xcda(%rip),%xmm1
subsd  %xmm0,%xmm1
mulsd  0xcd6(%rip),%xmm1
movapd %xmm1,%xmm0
add    $0x58,%rsp
ret

LLVM IR (-O0):
define double @potm(double %0) {
%2 = alloca double
%3 = alloca double
%4 = alloca double
%5 = alloca double
%6 = alloca double
%7 = alloca double
%8 = alloca double
%9 = alloca double
%10 = alloca double
%11 = alloca double
%12 = alloca double
%13 = alloca double
%14 = alloca double
%15 = alloca double
%16 = alloca double
%17 = alloca double
%18 = alloca double
store double %0, double* %2
%19 = load double, double* %2
%20 = fmul double 3.600000e+02, %19
%21 = fdiv double %20, 0x4076D3E003AB862B
store double %21, double* %3
%22 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %3)
%23 = load double, double* %3
%24 = fadd double %23, 0x40717673EDD8B60F
%25 = fsub double %24, 0x4071AC4B74DDF86E
store double %25, double* %4
%26 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %4)
%27 = load double, double* %4
%28 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %27)
%29 = sitofp i32 %28 to double
%30 = call double @sin(double %29)
%31 = fmul double 0x3FFEA487F6482AA2, %30
store double %31, double* %5
%32 = load double, double* %3
%33 = load double, double* %5
%34 = fadd double %32, %33
%35 = fadd double %34, 0x40717673EDD8B60F
store double %35, double* %6
%36 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %6)
%37 = load double, double* %2
%38 = call double @llvm.fmuladd.f64(double 0x402A5A50A7B8404E, double %37, double 0x4073E5A059A73B43)
store double %38, double* %7
%39 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %7)
%40 = load double, double* %7
%41 = load double, double* %2
%42 = call double @llvm.fmuladd.f64(double 0xBFBC84FAA623EB98, double %41, double %40)
%43 = fsub double %42, 0x40422B928E0C9D9D
store double %43, double* %8
%44 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %8)
%45 = load double, double* %2
%46 = call double @llvm.fmuladd.f64(double -5.295390e-02, double %45, double 0x4073E82965F5275F)
store double %46, double* %18
%47 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %18)
%48 = load double, double* %7
%49 = load double, double* %6
%50 = fsub double %48, %49
%51 = load double, double* %8
%52 = fneg double %51
%53 = call double @llvm.fmuladd.f64(double 2.000000e+00, double %50, double %52)
%54 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %53)
%55 = sitofp i32 %54 to double
%56 = call double @sin(double %55)
%57 = fmul double 1.273900e+00, %56
store double %57, double* %9
%58 = load double, double* %4
%59 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %58)
%60 = sitofp i32 %59 to double
%61 = call double @sin(double %60)
%62 = fmul double 1.858000e-01, %61
store double %62, double* %10
%63 = load double, double* %4
%64 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %63)
%65 = sitofp i32 %64 to double
%66 = call double @sin(double %65)
%67 = fmul double 3.700000e-01, %66
store double %67, double* %11
%68 = load double, double* %8
%69 = load double, double* %9
%70 = fadd double %68, %69
%71 = load double, double* %10
%72 = fsub double %70, %71
%73 = load double, double* %11
%74 = fsub double %72, %73
store double %74, double* %12
%75 = load double, double* %12
%76 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %75)
%77 = sitofp i32 %76 to double
%78 = call double @sin(double %77)
%79 = fmul double 6.288600e+00, %78
store double %79, double* %5
%80 = load double, double* %12
%81 = fmul double 2.000000e+00, %80
%82 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %81)
%83 = sitofp i32 %82 to double
%84 = call double @sin(double %83)
%85 = fmul double 2.140000e-01, %84
store double %85, double* %13
%86 = load double, double* %7
%87 = load double, double* %9
%88 = fadd double %86, %87
%89 = load double, double* %5
%90 = fadd double %88, %89
%91 = load double, double* %10
%92 = fsub double %90, %91
%93 = load double, double* %13
%94 = fadd double %92, %93
store double %94, double* %14
%95 = load double, double* %14
%96 = load double, double* %6
%97 = fsub double %95, %96
%98 = fmul double 2.000000e+00, %97
%99 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %98)
%100 = sitofp i32 %99 to double
%101 = call double @sin(double %100)
%102 = fmul double 6.583000e-01, %101
store double %102, double* %15
%103 = load double, double* %14
%104 = load double, double* %15
%105 = fadd double %103, %104
store double %105, double* %16
%106 = load double, double* %16
%107 = load double, double* %6
%108 = fsub double %106, %107
store double %108, double* %17
%109 = load double, double* %17
%110 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %109)
%111 = sitofp i32 %110 to double
%112 = call double @cos(double %111)
%113 = fsub double 1.000000e+00, %112
%114 = fmul double 5.000000e+01, %113
ret double %114
}

LLVM IR (-O2):
define double @potm(double %0) {
%2 = alloca double
%3 = alloca double
%4 = alloca double
%5 = alloca double
%6 = alloca double
%7 = alloca double
%8 = bitcast double* %2 to i8*
%9 = bitcast double* %3 to i8*
%10 = bitcast double* %4 to i8*
%11 = bitcast double* %5 to i8*
%12 = bitcast double* %6 to i8*
%13 = bitcast double* %7 to i8*
%14 = fmul double %0, 3.600000e+02
%15 = fdiv double %14, 0x4076D3E003AB862B
store double %15, double* %2
%16 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %2)
%17 = load double, double* %2
%18 = fadd double %17, 0x40717673EDD8B60F
%19 = fadd double %18, 0xC071AC4B74DDF86E
store double %19, double* %3
%20 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %3)
%21 = load double, double* %3
%22 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %21)
%23 = sitofp i32 %22 to double
%24 = call double @sin(double %23)
%25 = fmul double %24, 0x3FFEA487F6482AA2
%26 = load double, double* %2
%27 = fadd double %26, %25
%28 = fadd double %27, 0x40717673EDD8B60F
store double %28, double* %4
%29 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %4)
%30 = call double @llvm.fmuladd.f64(double %0, double 0x402A5A50A7B8404E, double 0x4073E5A059A73B43)
store double %30, double* %5
%31 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %5)
%32 = load double, double* %5
%33 = call double @llvm.fmuladd.f64(double %0, double 0xBFBC84FAA623EB98, double %32)
%34 = fadd double %33, 0xC0422B928E0C9D9D
store double %34, double* %6
%35 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %6)
%36 = call double @llvm.fmuladd.f64(double %0, double -5.295390e-02, double 0x4073E82965F5275F)
store double %36, double* %7
%37 = call i32 (double*, ...) bitcast (i32 (...)* @adj360 to i32 (double*, ...)*)(double* %7)
%38 = load double, double* %5
%39 = load double, double* %4
%40 = fsub double %38, %39
%41 = load double, double* %6
%42 = fneg double %41
%43 = call double @llvm.fmuladd.f64(double %40, double 2.000000e+00, double %42)
%44 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %43)
%45 = sitofp i32 %44 to double
%46 = call double @sin(double %45)
%47 = fmul double %46, 1.273900e+00
%48 = load double, double* %3
%49 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %48)
%50 = sitofp i32 %49 to double
%51 = call double @sin(double %50)
%52 = fmul double %51, 1.858000e-01
%53 = load double, double* %3
%54 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %53)
%55 = sitofp i32 %54 to double
%56 = call double @sin(double %55)
%57 = fmul double %56, 3.700000e-01
%58 = load double, double* %6
%59 = fadd double %47, %58
%60 = fsub double %59, %52
%61 = fsub double %60, %57
%62 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %61)
%63 = sitofp i32 %62 to double
%64 = call double @sin(double %63)
%65 = fmul double %64, 6.288600e+00
%66 = fmul double %61, 2.000000e+00
%67 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %66)
%68 = sitofp i32 %67 to double
%69 = call double @sin(double %68)
%70 = fmul double %69, 2.140000e-01
%71 = load double, double* %5
%72 = fadd double %47, %71
%73 = fadd double %65, %72
%74 = fsub double %73, %52
%75 = fadd double %70, %74
%76 = load double, double* %4
%77 = fsub double %75, %76
%78 = fmul double %77, 2.000000e+00
%79 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %78)
%80 = sitofp i32 %79 to double
%81 = call double @sin(double %80)
%82 = fmul double %81, 6.583000e-01
%83 = fadd double %75, %82
%84 = load double, double* %4
%85 = fsub double %83, %84
%86 = call i32 (double, ...) bitcast (i32 (...)* @dtor to i32 (double, ...)*)(double %85)
%87 = sitofp i32 %86 to double
%88 = call double @cos(double %87)
%89 = fsub double 1.000000e+00, %88
%90 = fmul double %89, 5.000000e+01
ret double %90
}