#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 */
float cos(double);
int /*<<< orphan*/ cosft1(float *, int);
int /*<<< orphan*/ free_vector(float *, int, int);
int /*<<< orphan*/ getchar();
int /*<<< orphan*/ printf(char *, ...);
int /*<<< orphan*/ scanf(char *, float *);
float *vector(int, int);
int main(void) {
  int i, j, nlim;
  float big, per, scal, small, *data;
  data = vector(1, 17);
  for (;;) {
    printf("Period of cosine in channels (2-%2d)\n", 17);
    scanf("%f", &per);
    if (per <= 0.0)
      break;
    for (i = 1; i <= 17; i++)
      data[i] = cos(2.0 * 3.1415926 * (i - 1) / per);
    cosft1(data, 17 - 1);
    big = -1.0e10;
    small = 1.0e10;
    for (i = 1; i <= 17; i++) {
      if (data[i] < small)
        small = data[i];
      if (data[i] > big)
        big = data[i];
    }
    scal = 30.0 / (big - small);
    for (i = 1; i <= 17; i++) {
      nlim = (int)(0.5 + scal * (data[i] - small) + 1.0e-3);
      printf("%4d %6.2f ", i, data[i]);
      for (j = 1; j <= nlim + 1; j++)
        printf("*");
      printf("\n");
    }
    printf("press RETURN to continue ...\n");
    (void)getchar();
    cosft1(data, 17 - 1);
    big = -1.0e10;
    small = 1.0e10;
    for (i = 1; i <= 17; i++) {
      if (data[i] < small)
        small = data[i];
      if (data[i] > big)
        big = data[i];
    }
    scal = 30.0 / (big - small);
    for (i = 1; i <= 17; i++) {
      nlim = (int)(0.5 + scal * (data[i] - small) + 1.0e-3);
      printf("%4d ", i);
      for (j = 1; j <= nlim + 1; j++)
        printf("*");
      printf("\n");
    }
  }
  free_vector(data, 1, 17);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
movl   $0x0,-0x4(%rbp)
mov    $0x1,%edi
mov    $0x11,%esi
call   1070 <vector@plt>
mov    %rax,-0x28(%rbp)
lea    0xe8f(%rip),%rdi
mov    $0x11,%esi
mov    $0x0,%al
call   1030 <printf@plt>
lea    0xea2(%rip),%rdi
lea    -0x18(%rbp),%rsi
call   1080 <scanf@plt>
movss  -0x18(%rbp),%xmm0
cvtss2sd %xmm0,%xmm1
xorps  %xmm0,%xmm0
ucomisd %xmm1,%xmm0
jb     11d0 <main+0x60>
jmp    1539 <main+0x3c9>
movl   $0x1,-0x8(%rbp)
cmpl   $0x11,-0x8(%rbp)
jg     1224 <main+0xb4>
mov    -0x8(%rbp),%eax
sub    $0x1,%eax
cvtsi2sd %eax,%xmm1
movsd  0xe2d(%rip),%xmm0
mulsd  %xmm1,%xmm0
movss  -0x18(%rbp),%xmm1
cvtss2sd %xmm1,%xmm1
divsd  %xmm1,%xmm0
call   1090 <cos@plt>
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  %xmm0,(%rax,%rcx,4)
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    11d7 <main+0x67>
mov    -0x28(%rbp),%rdi
mov    $0x10,%esi
call   1050 <cosft1@plt>
movss  0xdca(%rip),%xmm0
movss  %xmm0,-0x14(%rbp)
movss  0xdb9(%rip),%xmm0
movss  %xmm0,-0x20(%rbp)
movl   $0x1,-0x8(%rbp)
cmpl   $0x11,-0x8(%rbp)
jg     12c6 <main+0x156>
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm1
movss  -0x20(%rbp),%xmm0
ucomiss %xmm1,%xmm0
jbe    128a <main+0x11a>
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x20(%rbp)
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
ucomiss -0x14(%rbp),%xmm0
jbe    12b3 <main+0x143>
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x14(%rbp)
jmp    12b8 <main+0x148>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    1253 <main+0xe3>
movss  -0x14(%rbp),%xmm0
subss  -0x20(%rbp),%xmm0
cvtss2sd %xmm0,%xmm1
movsd  0xd2c(%rip),%xmm0
divsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,-0x1c(%rbp)
movl   $0x1,-0x8(%rbp)
cmpl   $0x11,-0x8(%rbp)
jg     13aa <main+0x23a>
movss  -0x1c(%rbp),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm1
subss  -0x20(%rbp),%xmm1
mulss  %xmm1,%xmm0
cvtss2sd %xmm0,%xmm1
movsd  0xcf7(%rip),%xmm0
addsd  %xmm1,%xmm0
movsd  0xce3(%rip),%xmm1
addsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
mov    %eax,-0x10(%rbp)
mov    -0x8(%rbp),%esi
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
cvtss2sd %xmm0,%xmm0
lea    0xcfe(%rip),%rdi
mov    $0x1,%al
call   1030 <printf@plt>
movl   $0x1,-0xc(%rbp)
mov    -0xc(%rbp),%eax
mov    -0x10(%rbp),%ecx
add    $0x1,%ecx
cmp    %ecx,%eax
jg     138e <main+0x21e>
lea    0xce3(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    1361 <main+0x1f1>
lea    0xcb7(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    12f0 <main+0x180>
lea    0xcad(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
mov    $0x0,%al
call   1060 <getchar@plt>
mov    -0x28(%rbp),%rdi
mov    $0x10,%esi
call   1050 <cosft1@plt>
movss  0xc2f(%rip),%xmm0
movss  %xmm0,-0x14(%rbp)
movss  0xc1e(%rip),%xmm0
movss  %xmm0,-0x20(%rbp)
movl   $0x1,-0x8(%rbp)
cmpl   $0x11,-0x8(%rbp)
jg     1461 <main+0x2f1>
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm1
movss  -0x20(%rbp),%xmm0
ucomiss %xmm1,%xmm0
jbe    1425 <main+0x2b5>
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x20(%rbp)
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
ucomiss -0x14(%rbp),%xmm0
jbe    144e <main+0x2de>
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm0
movss  %xmm0,-0x14(%rbp)
jmp    1453 <main+0x2e3>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    13ee <main+0x27e>
movss  -0x14(%rbp),%xmm0
subss  -0x20(%rbp),%xmm0
cvtss2sd %xmm0,%xmm1
movsd  0xb91(%rip),%xmm0
divsd  %xmm1,%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,-0x1c(%rbp)
movl   $0x1,-0x8(%rbp)
cmpl   $0x11,-0x8(%rbp)
jg     1534 <main+0x3c4>
movss  -0x1c(%rbp),%xmm0
mov    -0x28(%rbp),%rax
movslq -0x8(%rbp),%rcx
movss  (%rax,%rcx,4),%xmm1
subss  -0x20(%rbp),%xmm1
mulss  %xmm1,%xmm0
cvtss2sd %xmm0,%xmm1
movsd  0xb5c(%rip),%xmm0
addsd  %xmm1,%xmm0
movsd  0xb48(%rip),%xmm1
addsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
mov    %eax,-0x10(%rbp)
mov    -0x8(%rbp),%esi
lea    0xb9f(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
movl   $0x1,-0xc(%rbp)
mov    -0xc(%rbp),%eax
mov    -0x10(%rbp),%ecx
add    $0x1,%ecx
cmp    %ecx,%eax
jg     1518 <main+0x3a8>
lea    0xb59(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    14eb <main+0x37b>
lea    0xb2d(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    148b <main+0x31b>
jmp    1192 <main+0x22>
mov    -0x28(%rbp),%rdi
mov    $0x1,%esi
mov    $0x11,%edx
call   1040 <free_vector@plt>
xor    %eax,%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    $0x1,%edi
mov    $0x11,%esi
call   1090 <vector@plt>
mov    %rax,%r15
lea    0xe71(%rip),%rdi
mov    $0x11,%esi
xor    %eax,%eax
call   1050 <printf@plt>
lea    0xe84(%rip),%rdi
lea    0xc(%rsp),%rsi
call   10a0 <scanf@plt>
movss  0xc(%rsp),%xmm0
xorps  %xmm1,%xmm1
ucomiss %xmm0,%xmm1
jae    167f <main+0x4ef>
lea    0xe64(%rip),%r14
lea    0xe68(%rip),%r12
jmp    1236 <main+0xa6>
cs nopw 0x0(%rax,%rax,1)
lea    0xe21(%rip),%rdi
mov    $0x11,%esi
xor    %eax,%eax
call   1050 <printf@plt>
lea    0xe34(%rip),%rdi
lea    0xc(%rsp),%rsi
call   10a0 <scanf@plt>
movss  0xc(%rsp),%xmm0
xorps  %xmm1,%xmm1
ucomiss %xmm0,%xmm1
jae    167f <main+0x4ef>
xorps  %xmm1,%xmm1
cvtss2sd %xmm0,%xmm1
xorps  %xmm0,%xmm0
divsd  %xmm1,%xmm0
call   10b0 <cos@plt>
movss  %xmm0,0x4(%r15)
mov    $0x3,%ebp
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
lea    -0x2(%rbp),%eax
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movss  0xc(%rsp),%xmm1
movsd  0xd88(%rip),%xmm2
mulsd  %xmm2,%xmm0
cvtss2sd %xmm1,%xmm1
divsd  %xmm1,%xmm0
call   10b0 <cos@plt>
movss  %xmm0,-0x4(%r15,%rbp,4)
lea    -0x1(%rbp),%eax
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
movss  0xc(%rsp),%xmm1
mulsd  0xd58(%rip),%xmm0
cvtss2sd %xmm1,%xmm1
divsd  %xmm1,%xmm0
call   10b0 <cos@plt>
movss  %xmm0,(%r15,%rbp,4)
add    $0x2,%rbp
cmp    $0x13,%rbp
jne    1260 <main+0xd0>
mov    %r15,%rdi
mov    $0x10,%esi
call   1070 <cosft1@plt>
movss  0x4(%r15),%xmm0
movss  0x8(%r15),%xmm1
movaps %xmm0,%xmm2
minss  0xd2f(%rip),%xmm2
maxss  0xd2b(%rip),%xmm0
movaps %xmm1,%xmm3
minss  %xmm2,%xmm3
maxss  %xmm0,%xmm1
movss  0xc(%r15),%xmm0
movaps %xmm0,%xmm2
minss  %xmm3,%xmm2
maxss  %xmm1,%xmm0
movss  0x10(%r15),%xmm1
movaps %xmm1,%xmm3
minss  %xmm2,%xmm3
maxss  %xmm0,%xmm1
movss  0x14(%r15),%xmm0
movaps %xmm0,%xmm2
minss  %xmm3,%xmm2
maxss  %xmm1,%xmm0
movss  0x18(%r15),%xmm1
movaps %xmm1,%xmm3
minss  %xmm2,%xmm3
maxss  %xmm0,%xmm1
movss  0x1c(%r15),%xmm0
movaps %xmm0,%xmm2
minss  %xmm3,%xmm2
maxss  %xmm1,%xmm0
movss  0x20(%r15),%xmm1
movaps %xmm1,%xmm3
minss  %xmm2,%xmm3
maxss  %xmm0,%xmm1
movss  0x24(%r15),%xmm0
movaps %xmm0,%xmm2
minss  %xmm3,%xmm2
maxss  %xmm1,%xmm0
movss  0x28(%r15),%xmm1
movaps %xmm1,%xmm3
minss  %xmm2,%xmm3
maxss  %xmm0,%xmm1
movss  0x2c(%r15),%xmm0
movaps %xmm0,%xmm2
minss  %xmm3,%xmm2
maxss  %xmm1,%xmm0
movss  0x30(%r15),%xmm1
movaps %xmm1,%xmm3
minss  %xmm2,%xmm3
maxss  %xmm0,%xmm1
movss  0x34(%r15),%xmm0
movaps %xmm0,%xmm2
minss  %xmm3,%xmm2
maxss  %xmm1,%xmm0
movss  0x38(%r15),%xmm1
movaps %xmm1,%xmm3
minss  %xmm2,%xmm3
maxss  %xmm0,%xmm1
movss  0x3c(%r15),%xmm0
movaps %xmm0,%xmm2
minss  %xmm3,%xmm2
maxss  %xmm1,%xmm0
movss  0x40(%r15),%xmm1
movaps %xmm1,%xmm3
minss  %xmm2,%xmm3
maxss  %xmm0,%xmm1
movss  0x44(%r15),%xmm0
movaps %xmm0,%xmm2
minss  %xmm3,%xmm2
maxss  %xmm1,%xmm0
movss  %xmm2,0x14(%rsp)
subss  %xmm2,%xmm0
movss  0xc13(%rip),%xmm1
divss  %xmm0,%xmm1
movss  %xmm1,0x10(%rsp)
mov    $0x1,%ebp
jmp    1434 <main+0x2a4>
xchg   %ax,%ax
mov    $0xa,%edi
call   1030 <putchar@plt>
add    $0x1,%rbp
cmp    $0x12,%rbp
je     14a0 <main+0x310>
movss  (%r15,%rbp,4),%xmm1
xorps  %xmm0,%xmm0
cvtss2sd %xmm1,%xmm0
subss  0x14(%rsp),%xmm1
mulss  0x10(%rsp),%xmm1
cvtss2sd %xmm1,%xmm1
addsd  0xbaf(%rip),%xmm1
addsd  0xbaf(%rip),%xmm1
cvttsd2si %xmm1,%ebx
mov    %r14,%rdi
mov    %ebp,%esi
mov    $0x1,%al
call   1050 <printf@plt>
test   %ebx,%ebx
js     1420 <main+0x290>
add    $0x1,%ebx
nopl   0x0(%rax,%rax,1)
mov    $0x2a,%edi
call   1030 <putchar@plt>
add    $0xffffffff,%ebx
jne    1480 <main+0x2f0>
jmp    1420 <main+0x290>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
lea    0xbba(%rip),%rdi
call   1040 <puts@plt>
xor    %eax,%eax
call   1080 <getchar@plt>
mov    %r15,%rdi
mov    $0x10,%esi
call   1070 <cosft1@plt>
movss  0x4(%r15),%xmm0
movss  0x8(%r15),%xmm1
movaps %xmm0,%xmm2
minss  0xb41(%rip),%xmm2
movaps %xmm0,%xmm3
maxss  0xb3a(%rip),%xmm3
movaps %xmm1,%xmm4
minss  %xmm2,%xmm4
maxss  %xmm3,%xmm1
movss  0xc(%r15),%xmm2
movaps %xmm2,%xmm3
minss  %xmm4,%xmm3
maxss  %xmm1,%xmm2
movss  0x10(%r15),%xmm1
movaps %xmm1,%xmm4
minss  %xmm3,%xmm4
maxss  %xmm2,%xmm1
movss  0x14(%r15),%xmm2
movaps %xmm2,%xmm3
minss  %xmm4,%xmm3
maxss  %xmm1,%xmm2
movss  0x18(%r15),%xmm1
movaps %xmm1,%xmm4
minss  %xmm3,%xmm4
maxss  %xmm2,%xmm1
movss  0x1c(%r15),%xmm2
movaps %xmm2,%xmm3
minss  %xmm4,%xmm3
maxss  %xmm1,%xmm2
movss  0x20(%r15),%xmm1
movaps %xmm1,%xmm4
minss  %xmm3,%xmm4
maxss  %xmm2,%xmm1
movss  0x24(%r15),%xmm2
movaps %xmm2,%xmm3
minss  %xmm4,%xmm3
maxss  %xmm1,%xmm2
movss  0x28(%r15),%xmm1
movaps %xmm1,%xmm4
minss  %xmm3,%xmm4
maxss  %xmm2,%xmm1
movss  0x2c(%r15),%xmm2
movaps %xmm2,%xmm3
minss  %xmm4,%xmm3
maxss  %xmm1,%xmm2
movss  0x30(%r15),%xmm1
movaps %xmm1,%xmm4
minss  %xmm3,%xmm4
maxss  %xmm2,%xmm1
movss  0x34(%r15),%xmm2
movaps %xmm2,%xmm3
minss  %xmm4,%xmm3
maxss  %xmm1,%xmm2
movss  0x38(%r15),%xmm1
movaps %xmm1,%xmm4
minss  %xmm3,%xmm4
maxss  %xmm2,%xmm1
movss  0x3c(%r15),%xmm2
movaps %xmm2,%xmm3
minss  %xmm4,%xmm3
maxss  %xmm1,%xmm2
movss  0x40(%r15),%xmm1
movaps %xmm1,%xmm4
minss  %xmm3,%xmm4
maxss  %xmm2,%xmm1
movss  0x44(%r15),%xmm2
movaps %xmm2,%xmm3
minss  %xmm4,%xmm3
maxss  %xmm1,%xmm2
movss  %xmm3,0x14(%rsp)
subss  %xmm3,%xmm2
movss  0xa22(%rip),%xmm1
divss  %xmm2,%xmm1
movss  %xmm1,0x10(%rsp)
mov    $0x1,%r13d
xchg   %ax,%ax
subss  0x14(%rsp),%xmm0
mulss  0x10(%rsp),%xmm0
cvtss2sd %xmm0,%xmm0
addsd  0x9e0(%rip),%xmm0
addsd  0x9e0(%rip),%xmm0
cvttsd2si %xmm0,%ebp
mov    %r12,%rdi
mov    %r13d,%esi
xor    %eax,%eax
call   1050 <printf@plt>
test   %ebp,%ebp
js     165f <main+0x4cf>
add    $0x1,%ebp
nopl   0x0(%rax,%rax,1)
mov    $0x2a,%edi
call   1030 <putchar@plt>
add    $0xffffffff,%ebp
jne    1650 <main+0x4c0>
mov    $0xa,%edi
call   1030 <putchar@plt>
add    $0x1,%r13
cmp    $0x12,%r13
je     1200 <main+0x70>
movss  (%r15,%r13,4),%xmm0
jmp    1610 <main+0x480>
mov    %r15,%rdi
mov    $0x1,%esi
mov    $0x11,%edx
call   1060 <free_vector@plt>
xor    %eax,%eax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [38 x i8] c"Period of cosine in channels (2-%2d)\0A\00"
@.str.1 = [3 x i8] c"%f\00"
@.str.2 = [11 x i8] c"%4d %6.2f \00"
@.str.3 = [2 x i8] c"*\00"
@.str.4 = [2 x i8] c"\0A\00"
@.str.5 = [30 x i8] c"press RETURN to continue ...\0A\00"
@.str.6 = [5 x i8] c"%4d \00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca i32
%5 = alloca float
%6 = alloca float
%7 = alloca float
%8 = alloca float
%9 = alloca float*
store i32 0, i32* %1
%10 = call float* @vector(i32 1, i32 17)
store float* %10, float** %9
br label %11
11: ; preds = %204, %0
%12 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([38 x i8], [38 x i8]* @.str, i64 0, i64 0), i32 17)
%13 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), float* %6)
%14 = load float, float* %6
%15 = fpext float %14 to double
%16 = fcmp ole double %15, 0.000000e+00
br i1 %16, label %17, label %18
17: ; preds = %11
br label %205
18: ; preds = %11
store i32 1, i32* %2
br label %19
19: ; preds = %35, %18
%20 = load i32, i32* %2
%21 = icmp sle i32 %20, 17
br i1 %21, label %22, label %38
22: ; preds = %19
%23 = load i32, i32* %2
%24 = sub nsw i32 %23, 1
%25 = sitofp i32 %24 to double
%26 = fmul double 0x401921FB4D12D84A, %25
%27 = load float, float* %6
%28 = fpext float %27 to double
%29 = fdiv double %26, %28
%30 = call float @cos(double %29)
%31 = load float*, float** %9
%32 = load i32, i32* %2
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds float, float* %31, i64 %33
store float %30, float* %34
br label %35
35: ; preds = %22
%36 = load i32, i32* %2
%37 = add nsw i32 %36, 1
store i32 %37, i32* %2
br label %19
38: ; preds = %19
%39 = load float*, float** %9
%40 = call i32 @cosft1(float* %39, i32 16)
store float -1.000000e+10, float* %5
store float 1.000000e+10, float* %8
store i32 1, i32* %2
br label %41
41: ; preds = %73, %38
%42 = load i32, i32* %2
%43 = icmp sle i32 %42, 17
br i1 %43, label %44, label %76
44: ; preds = %41
%45 = load float*, float** %9
%46 = load i32, i32* %2
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds float, float* %45, i64 %47
%49 = load float, float* %48
%50 = load float, float* %8
%51 = fcmp olt float %49, %50
br i1 %51, label %52, label %58
52: ; preds = %44
%53 = load float*, float** %9
%54 = load i32, i32* %2
%55 = sext i32 %54 to i64
%56 = getelementptr inbounds float, float* %53, i64 %55
%57 = load float, float* %56
store float %57, float* %8
br label %58
58: ; preds = %52, %44
%59 = load float*, float** %9
%60 = load i32, i32* %2
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds float, float* %59, i64 %61
%63 = load float, float* %62
%64 = load float, float* %5
%65 = fcmp ogt float %63, %64
br i1 %65, label %66, label %72
66: ; preds = %58
%67 = load float*, float** %9
%68 = load i32, i32* %2
%69 = sext i32 %68 to i64
%70 = getelementptr inbounds float, float* %67, i64 %69
%71 = load float, float* %70
store float %71, float* %5
br label %72
72: ; preds = %66, %58
br label %73
73: ; preds = %72
%74 = load i32, i32* %2
%75 = add nsw i32 %74, 1
store i32 %75, i32* %2
br label %41
76: ; preds = %41
%77 = load float, float* %5
%78 = load float, float* %8
%79 = fsub float %77, %78
%80 = fpext float %79 to double
%81 = fdiv double 3.000000e+01, %80
%82 = fptrunc double %81 to float
store float %82, float* %7
store i32 1, i32* %2
br label %83
83: ; preds = %120, %76
%84 = load i32, i32* %2
%85 = icmp sle i32 %84, 17
br i1 %85, label %86, label %123
86: ; preds = %83
%87 = load float, float* %7
%88 = load float*, float** %9
%89 = load i32, i32* %2
%90 = sext i32 %89 to i64
%91 = getelementptr inbounds float, float* %88, i64 %90
%92 = load float, float* %91
%93 = load float, float* %8
%94 = fsub float %92, %93
%95 = fmul float %87, %94
%96 = fpext float %95 to double
%97 = fadd double 5.000000e-01, %96
%98 = fadd double %97, 1.000000e-03
%99 = fptosi double %98 to i32
store i32 %99, i32* %4
%100 = load i32, i32* %2
%101 = load float*, float** %9
%102 = load i32, i32* %2
%103 = sext i32 %102 to i64
%104 = getelementptr inbounds float, float* %101, i64 %103
%105 = load float, float* %104
%106 = fpext float %105 to double
%107 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([11 x i8], [11 x i8]* @.str.2, i64 0, i64 0), i32 %100, double %106)
store i32 1, i32* %3
br label %108
108: ; preds = %115, %86
%109 = load i32, i32* %3
%110 = load i32, i32* %4
%111 = add nsw i32 %110, 1
%112 = icmp sle i32 %109, %111
br i1 %112, label %113, label %118
113: ; preds = %108
%114 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.3, i64 0, i64 0))
br label %115
115: ; preds = %113
%116 = load i32, i32* %3
%117 = add nsw i32 %116, 1
store i32 %117, i32* %3
br label %108
118: ; preds = %108
%119 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.4, i64 0, i64 0))
br label %120
120: ; preds = %118
%121 = load i32, i32* %2
%122 = add nsw i32 %121, 1
store i32 %122, i32* %2
br label %83
123: ; preds = %83
%124 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([30 x i8], [30 x i8]* @.str.5, i64 0, i64 0))
%125 = call i32 (...) @getchar()
%126 = load float*, float** %9
%127 = call i32 @cosft1(float* %126, i32 16)
store float -1.000000e+10, float* %5
store float 1.000000e+10, float* %8
store i32 1, i32* %2
br label %128
128: ; preds = %160, %123
%129 = load i32, i32* %2
%130 = icmp sle i32 %129, 17
br i1 %130, label %131, label %163
131: ; preds = %128
%132 = load float*, float** %9
%133 = load i32, i32* %2
%134 = sext i32 %133 to i64
%135 = getelementptr inbounds float, float* %132, i64 %134
%136 = load float, float* %135
%137 = load float, float* %8
%138 = fcmp olt float %136, %137
br i1 %138, label %139, label %145
139: ; preds = %131
%140 = load float*, float** %9
%141 = load i32, i32* %2
%142 = sext i32 %141 to i64
%143 = getelementptr inbounds float, float* %140, i64 %142
%144 = load float, float* %143
store float %144, float* %8
br label %145
145: ; preds = %139, %131
%146 = load float*, float** %9
%147 = load i32, i32* %2
%148 = sext i32 %147 to i64
%149 = getelementptr inbounds float, float* %146, i64 %148
%150 = load float, float* %149
%151 = load float, float* %5
%152 = fcmp ogt float %150, %151
br i1 %152, label %153, label %159
153: ; preds = %145
%154 = load float*, float** %9
%155 = load i32, i32* %2
%156 = sext i32 %155 to i64
%157 = getelementptr inbounds float, float* %154, i64 %156
%158 = load float, float* %157
store float %158, float* %5
br label %159
159: ; preds = %153, %145
br label %160
160: ; preds = %159
%161 = load i32, i32* %2
%162 = add nsw i32 %161, 1
store i32 %162, i32* %2
br label %128
163: ; preds = %128
%164 = load float, float* %5
%165 = load float, float* %8
%166 = fsub float %164, %165
%167 = fpext float %166 to double
%168 = fdiv double 3.000000e+01, %167
%169 = fptrunc double %168 to float
store float %169, float* %7
store i32 1, i32* %2
br label %170
170: ; preds = %201, %163
%171 = load i32, i32* %2
%172 = icmp sle i32 %171, 17
br i1 %172, label %173, label %204
173: ; preds = %170
%174 = load float, float* %7
%175 = load float*, float** %9
%176 = load i32, i32* %2
%177 = sext i32 %176 to i64
%178 = getelementptr inbounds float, float* %175, i64 %177
%179 = load float, float* %178
%180 = load float, float* %8
%181 = fsub float %179, %180
%182 = fmul float %174, %181
%183 = fpext float %182 to double
%184 = fadd double 5.000000e-01, %183
%185 = fadd double %184, 1.000000e-03
%186 = fptosi double %185 to i32
store i32 %186, i32* %4
%187 = load i32, i32* %2
%188 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.6, i64 0, i64 0), i32 %187)
store i32 1, i32* %3
br label %189
189: ; preds = %196, %173
%190 = load i32, i32* %3
%191 = load i32, i32* %4
%192 = add nsw i32 %191, 1
%193 = icmp sle i32 %190, %192
br i1 %193, label %194, label %199
194: ; preds = %189
%195 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.3, i64 0, i64 0))
br label %196
196: ; preds = %194
%197 = load i32, i32* %3
%198 = add nsw i32 %197, 1
store i32 %198, i32* %3
br label %189
199: ; preds = %189
%200 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.4, i64 0, i64 0))
br label %201
201: ; preds = %199
%202 = load i32, i32* %2
%203 = add nsw i32 %202, 1
store i32 %203, i32* %2
br label %170
204: ; preds = %170
br label %11
205: ; preds = %17
%206 = load float*, float** %9
%207 = call i32 @free_vector(float* %206, i32 1, i32 17)
ret i32 0
}

LLVM IR (-O2):
@.str = [38 x i8] c"Period of cosine in channels (2-%2d)\0A\00"
@.str.1 = [3 x i8] c"%f\00"
@.str.2 = [11 x i8] c"%4d %6.2f \00"
@.str.6 = [5 x i8] c"%4d \00"
@str = [29 x i8] c"press RETURN to continue ...\00"
define i32 @main() {
%1 = alloca float
%2 = bitcast float* %1 to i8*
%3 = tail call float* @vector(i32 1, i32 17)
%4 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([38 x i8], [38 x i8]* @.str, i64 0, i64 0), i32 17)
%5 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), float* %1)
%6 = load float, float* %1
%7 = fcmp ugt float %6, 0.000000e+00
br i1 %7, label %8, label %291
8: ; preds = %0
%9 = getelementptr inbounds float, float* %3, i64 1
%10 = getelementptr inbounds float, float* %3, i64 2
%11 = getelementptr inbounds float, float* %3, i64 3
%12 = getelementptr inbounds float, float* %3, i64 4
%13 = getelementptr inbounds float, float* %3, i64 5
%14 = getelementptr inbounds float, float* %3, i64 6
%15 = getelementptr inbounds float, float* %3, i64 7
%16 = getelementptr inbounds float, float* %3, i64 8
%17 = getelementptr inbounds float, float* %3, i64 9
%18 = getelementptr inbounds float, float* %3, i64 10
%19 = getelementptr inbounds float, float* %3, i64 11
%20 = getelementptr inbounds float, float* %3, i64 12
%21 = getelementptr inbounds float, float* %3, i64 13
%22 = getelementptr inbounds float, float* %3, i64 14
%23 = getelementptr inbounds float, float* %3, i64 15
%24 = getelementptr inbounds float, float* %3, i64 16
%25 = getelementptr inbounds float, float* %3, i64 17
%26 = getelementptr inbounds float, float* %3, i64 1
br label %32
27: ; preds = %284
%28 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([38 x i8], [38 x i8]* @.str, i64 0, i64 0), i32 17)
%29 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), float* %1)
%30 = load float, float* %1
%31 = fcmp ugt float %30, 0.000000e+00
br i1 %31, label %32, label %291
32: ; preds = %8, %27
%33 = phi float [ %6, %8 ], [ %30, %27 ]
%34 = fpext float %33 to double
%35 = fdiv double 0.000000e+00, %34
%36 = call float @cos(double %35)
store float %36, float* %26
br label %37
37: ; preds = %37, %32
%38 = phi i64 [ 2, %32 ], [ %58, %37 ]
%39 = load float, float* %1
%40 = trunc i64 %38 to i32
%41 = add nsw i32 %40, -1
%42 = sitofp i32 %41 to double
%43 = fmul double %42, 0x401921FB4D12D84A
%44 = fpext float %39 to double
%45 = fdiv double %43, %44
%46 = call float @cos(double %45)
%47 = getelementptr inbounds float, float* %3, i64 %38
store float %46, float* %47
%48 = or i64 %38, 1
%49 = load float, float* %1
%50 = trunc i64 %48 to i32
%51 = add nsw i32 %50, -1
%52 = sitofp i32 %51 to double
%53 = fmul double %52, 0x401921FB4D12D84A
%54 = fpext float %49 to double
%55 = fdiv double %53, %54
%56 = call float @cos(double %55)
%57 = getelementptr inbounds float, float* %3, i64 %48
store float %56, float* %57
%58 = add nuw nsw i64 %38, 2
%59 = icmp eq i64 %58, 18
br i1 %59, label %60, label %37
60: ; preds = %37
%61 = call i32 @cosft1(float* %3, i32 16)
%62 = load float, float* %9
%63 = fcmp olt float %62, 1.000000e+10
%64 = select i1 %63, float %62, float 1.000000e+10
%65 = fcmp ogt float %62, -1.000000e+10
%66 = select i1 %65, float %62, float -1.000000e+10
%67 = load float, float* %10
%68 = fcmp olt float %67, %64
%69 = select i1 %68, float %67, float %64
%70 = fcmp ogt float %67, %66
%71 = select i1 %70, float %67, float %66
%72 = load float, float* %11
%73 = fcmp olt float %72, %69
%74 = select i1 %73, float %72, float %69
%75 = fcmp ogt float %72, %71
%76 = select i1 %75, float %72, float %71
%77 = load float, float* %12
%78 = fcmp olt float %77, %74
%79 = select i1 %78, float %77, float %74
%80 = fcmp ogt float %77, %76
%81 = select i1 %80, float %77, float %76
%82 = load float, float* %13
%83 = fcmp olt float %82, %79
%84 = select i1 %83, float %82, float %79
%85 = fcmp ogt float %82, %81
%86 = select i1 %85, float %82, float %81
%87 = load float, float* %14
%88 = fcmp olt float %87, %84
%89 = select i1 %88, float %87, float %84
%90 = fcmp ogt float %87, %86
%91 = select i1 %90, float %87, float %86
%92 = load float, float* %15
%93 = fcmp olt float %92, %89
%94 = select i1 %93, float %92, float %89
%95 = fcmp ogt float %92, %91
%96 = select i1 %95, float %92, float %91
%97 = load float, float* %16
%98 = fcmp olt float %97, %94
%99 = select i1 %98, float %97, float %94
%100 = fcmp ogt float %97, %96
%101 = select i1 %100, float %97, float %96
%102 = load float, float* %17
%103 = fcmp olt float %102, %99
%104 = select i1 %103, float %102, float %99
%105 = fcmp ogt float %102, %101
%106 = select i1 %105, float %102, float %101
%107 = load float, float* %18
%108 = fcmp olt float %107, %104
%109 = select i1 %108, float %107, float %104
%110 = fcmp ogt float %107, %106
%111 = select i1 %110, float %107, float %106
%112 = load float, float* %19
%113 = fcmp olt float %112, %109
%114 = select i1 %113, float %112, float %109
%115 = fcmp ogt float %112, %111
%116 = select i1 %115, float %112, float %111
%117 = load float, float* %20
%118 = fcmp olt float %117, %114
%119 = select i1 %118, float %117, float %114
%120 = fcmp ogt float %117, %116
%121 = select i1 %120, float %117, float %116
%122 = load float, float* %21
%123 = fcmp olt float %122, %119
%124 = select i1 %123, float %122, float %119
%125 = fcmp ogt float %122, %121
%126 = select i1 %125, float %122, float %121
%127 = load float, float* %22
%128 = fcmp olt float %127, %124
%129 = select i1 %128, float %127, float %124
%130 = fcmp ogt float %127, %126
%131 = select i1 %130, float %127, float %126
%132 = load float, float* %23
%133 = fcmp olt float %132, %129
%134 = select i1 %133, float %132, float %129
%135 = fcmp ogt float %132, %131
%136 = select i1 %135, float %132, float %131
%137 = load float, float* %24
%138 = fcmp olt float %137, %134
%139 = select i1 %138, float %137, float %134
%140 = fcmp ogt float %137, %136
%141 = select i1 %140, float %137, float %136
%142 = load float, float* %25
%143 = fcmp olt float %142, %139
%144 = select i1 %143, float %142, float %139
%145 = fcmp ogt float %142, %141
%146 = select i1 %145, float %142, float %141
%147 = fsub float %146, %144
%148 = fdiv float 3.000000e+01, %147
br label %149
149: ; preds = %60, %170
%150 = phi i64 [ 1, %60 ], [ %172, %170 ]
%151 = getelementptr inbounds float, float* %3, i64 %150
%152 = load float, float* %151
%153 = fsub float %152, %144
%154 = fmul float %148, %153
%155 = fpext float %154 to double
%156 = fadd double %155, 5.000000e-01
%157 = fadd double %156, 1.000000e-03
%158 = fptosi double %157 to i32
%159 = fpext float %152 to double
%160 = trunc i64 %150 to i32
%161 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([11 x i8], [11 x i8]* @.str.2, i64 0, i64 0), i32 %160, double %159)
%162 = icmp slt i32 %158, 0
br i1 %162, label %170, label %163
163: ; preds = %149
%164 = add i32 %158, 1
br label %165
165: ; preds = %163, %165
%166 = phi i32 [ %168, %165 ], [ 1, %163 ]
%167 = call i32 @putchar(i32 42)
%168 = add nuw i32 %166, 1
%169 = icmp eq i32 %166, %164
br i1 %169, label %170, label %165
170: ; preds = %165, %149
%171 = call i32 @putchar(i32 10)
%172 = add nuw nsw i64 %150, 1
%173 = icmp eq i64 %172, 18
br i1 %173, label %174, label %149
174: ; preds = %170
%175 = call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([29 x i8], [29 x i8]* @str, i64 0, i64 0))
%176 = call i32 (...) @getchar()
%177 = call i32 @cosft1(float* %3, i32 16)
%178 = load float, float* %9
%179 = fcmp olt float %178, 1.000000e+10
%180 = select i1 %179, float %178, float 1.000000e+10
%181 = fcmp ogt float %178, -1.000000e+10
%182 = select i1 %181, float %178, float -1.000000e+10
%183 = load float, float* %10
%184 = fcmp olt float %183, %180
%185 = select i1 %184, float %183, float %180
%186 = fcmp ogt float %183, %182
%187 = select i1 %186, float %183, float %182
%188 = load float, float* %11
%189 = fcmp olt float %188, %185
%190 = select i1 %189, float %188, float %185
%191 = fcmp ogt float %188, %187
%192 = select i1 %191, float %188, float %187
%193 = load float, float* %12
%194 = fcmp olt float %193, %190
%195 = select i1 %194, float %193, float %190
%196 = fcmp ogt float %193, %192
%197 = select i1 %196, float %193, float %192
%198 = load float, float* %13
%199 = fcmp olt float %198, %195
%200 = select i1 %199, float %198, float %195
%201 = fcmp ogt float %198, %197
%202 = select i1 %201, float %198, float %197
%203 = load float, float* %14
%204 = fcmp olt float %203, %200
%205 = select i1 %204, float %203, float %200
%206 = fcmp ogt float %203, %202
%207 = select i1 %206, float %203, float %202
%208 = load float, float* %15
%209 = fcmp olt float %208, %205
%210 = select i1 %209, float %208, float %205
%211 = fcmp ogt float %208, %207
%212 = select i1 %211, float %208, float %207
%213 = load float, float* %16
%214 = fcmp olt float %213, %210
%215 = select i1 %214, float %213, float %210
%216 = fcmp ogt float %213, %212
%217 = select i1 %216, float %213, float %212
%218 = load float, float* %17
%219 = fcmp olt float %218, %215
%220 = select i1 %219, float %218, float %215
%221 = fcmp ogt float %218, %217
%222 = select i1 %221, float %218, float %217
%223 = load float, float* %18
%224 = fcmp olt float %223, %220
%225 = select i1 %224, float %223, float %220
%226 = fcmp ogt float %223, %222
%227 = select i1 %226, float %223, float %222
%228 = load float, float* %19
%229 = fcmp olt float %228, %225
%230 = select i1 %229, float %228, float %225
%231 = fcmp ogt float %228, %227
%232 = select i1 %231, float %228, float %227
%233 = load float, float* %20
%234 = fcmp olt float %233, %230
%235 = select i1 %234, float %233, float %230
%236 = fcmp ogt float %233, %232
%237 = select i1 %236, float %233, float %232
%238 = load float, float* %21
%239 = fcmp olt float %238, %235
%240 = select i1 %239, float %238, float %235
%241 = fcmp ogt float %238, %237
%242 = select i1 %241, float %238, float %237
%243 = load float, float* %22
%244 = fcmp olt float %243, %240
%245 = select i1 %244, float %243, float %240
%246 = fcmp ogt float %243, %242
%247 = select i1 %246, float %243, float %242
%248 = load float, float* %23
%249 = fcmp olt float %248, %245
%250 = select i1 %249, float %248, float %245
%251 = fcmp ogt float %248, %247
%252 = select i1 %251, float %248, float %247
%253 = load float, float* %24
%254 = fcmp olt float %253, %250
%255 = select i1 %254, float %253, float %250
%256 = fcmp ogt float %253, %252
%257 = select i1 %256, float %253, float %252
%258 = load float, float* %25
%259 = fcmp olt float %258, %255
%260 = select i1 %259, float %258, float %255
%261 = fcmp ogt float %258, %257
%262 = select i1 %261, float %258, float %257
%263 = fsub float %262, %260
%264 = fdiv float 3.000000e+01, %263
br label %265
265: ; preds = %288, %174
%266 = phi float [ %178, %174 ], [ %290, %288 ]
%267 = phi i64 [ 1, %174 ], [ %286, %288 ]
%268 = fsub float %266, %260
%269 = fmul float %264, %268
%270 = fpext float %269 to double
%271 = fadd double %270, 5.000000e-01
%272 = fadd double %271, 1.000000e-03
%273 = fptosi double %272 to i32
%274 = trunc i64 %267 to i32
%275 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([5 x i8], [5 x i8]* @.str.6, i64 0, i64 0), i32 %274)
%276 = icmp slt i32 %273, 0
br i1 %276, label %284, label %277
277: ; preds = %265
%278 = add i32 %273, 1
br label %279
279: ; preds = %277, %279
%280 = phi i32 [ %282, %279 ], [ 1, %277 ]
%281 = call i32 @putchar(i32 42)
%282 = add nuw i32 %280, 1
%283 = icmp eq i32 %280, %278
br i1 %283, label %284, label %279
284: ; preds = %279, %265
%285 = call i32 @putchar(i32 10)
%286 = add nuw nsw i64 %267, 1
%287 = icmp eq i64 %286, 18
br i1 %287, label %27, label %288
288: ; preds = %284
%289 = getelementptr inbounds float, float* %3, i64 %286
%290 = load float, float* %289
br label %265
291: ; preds = %27, %0
%292 = call i32 @free_vector(float* %3, i32 1, i32 17)
ret i32 0
}