OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [s390/] [tf_to_di-1.c] - Rev 753

Go to most recent revision | Compare with Previous | Blame | View Log

/* { dg-options "-O0 -mlong-double-128" } */
 
#include <stdio.h>
#include <stdlib.h>
 
void
check_ll (long double ld, long long ll)
{
  if ((long long)ld != ll)
    {
      printf ("ld: %Lf expect: %lld result: %lld\n",
	      ld, ll, (long long)ld);
      abort ();
    }
}
 
void
check_ull (long double ld, unsigned long long ull)
{
  if ((unsigned long long)ld != ull)
    {
      printf ("ld: %Lf expect: %llu result: %llu\n",
	      ld, ull, (unsigned long long)ld);
      abort ();
    }
}
 
int
main ()
{
  const long long ll_max = (long long)((1ULL << 63) - 1);
  const long long ll_min = -ll_max - 1;
 
  check_ll (206.23253, 206LL);
  check_ull (206.23253, 206ULL);
  check_ll ((long double)ll_max, ll_max);
  check_ull ((long double)ll_max, ll_max);
  check_ll ((long double)ll_min, ll_min);
  check_ll (0.0, 0);
  check_ull (0.0, 0);
  check_ll (-1.0, -1);
  check_ll ((long double)0xffffffffffffffffULL, ll_max);
  check_ull ((long double)0xffffffffffffffffULL, 0xffffffffffffffffULL);
 
  return 0;
}
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.