/* ldcomplex.c  test types  your C compiler may have these */
/*                          ISO C99 standard, in gcc 4.x   */

#include <stdio.h>
#include <math.h>
#include <complex.h>
int main(int argc, char *argv[])
{
  int i=1;
  long int li=1l;
  short int si=1;
  float fx=1.0f;
  double dx=1.0;
  long double ldx=1.0l;
  float complex fcz=1.0f+I*2.0f;
  complex cz=1.0+I*2.0;
  double complex dcz=1.0+I*2.0;
  long double complex ldcz=1.0l+I*2.0l;

  printf("sizeof(int)=%d \n", sizeof(int));
  printf("sizeof(long int)=%d \n", sizeof(long int));
  printf("sizeof(short int)=%d \n", sizeof(short int));
  printf("sizeof(float)=%d \n", sizeof(float));
  printf("sizeof(double)=%d \n", sizeof(double));
  printf("sizeof(long double)=%d \n", sizeof(long double));
  printf("sizeof(float complex)=%d \n", sizeof(float complex));
  printf("sizeof(complex)=%d \n", sizeof(complex));
  printf("sizeof(double complex)=%d \n", sizeof(double complex));
  printf("sizeof(long double complex)=%d \n", sizeof(long double complex));

  printf("i=%d    \n",i);
  printf("li=%ld  \n",li);
  printf("si=%hd  \n",si);
  printf("fx=%f   \n",fx);
  printf("dx=%f   \n",dx);
  printf("ldx=%lf ?? \n",ldx);
  printf("fcz=%f+I*%f \n",fcz);
  printf("cz=%f+I*%f  \n",cz);
  printf("dcz=%f+I*%f \n",dcz);
  printf("ldcz=%lf+I*%lf \n",ldcz);
  printf("ldcz=%lf+I*%lf \n",creall(ldcz),cimagl(ldcz));
  printf("ldcz=%lf+I*%lf \n",creal(ldcz),cimag(ldcz));

  dx=cabs(cz);
  dx=carg(cz);
  dx=creal(cz);
  dx=cimag(cz);
  cz=conj(cz);
  cz=cproj(cz);
  cz=csin(cz);
  cz=ccos(cz);
  cz=ctan(cz);
  cz=casin(cz);
  cz=cacos(cz);
  cz=catan(cz);
  cz=csinh(cz);
  cz=ccosh(cz);
  cz=ctanh(cz);
  cz=casinh(cz);
  cz=cacosh(cz);
  cz=catanh(cz);
  cz=cexp(cz);
  cz=clog(cz);
  cz=csqrt(cz);
  cz=cpow(cz,cz);

  ldx=cabsl(ldcz);
  ldx=carg(ldcz);
  ldx=creal(ldcz);
  ldx=cimag(ldcz);
  ldcz=conj(ldcz);
  ldcz=cproj(ldcz);
  ldcz=csin(ldcz);
  ldcz=ccos(ldcz);
  ldcz=ctan(ldcz);
  ldcz=casin(ldcz);
  ldcz=cacos(ldcz);
  ldcz=catan(ldcz);
  ldcz=csinh(ldcz);
  ldcz=ccosh(ldcz);
  ldcz=ctanh(ldcz);
  ldcz=casinh(ldcz);
  ldcz=cacosh(ldcz);
  ldcz=catanh(ldcz);
  ldcz=cexpl(ldcz);
  ldcz=clogl(ldcz);
  ldcz=csqrtl(ldcz);
  ldcz=cpowl(ldcz,ldcz);

  printf("finished ldcomplex.c \n");
  return 0;
}