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] - Blame information for rev 691

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 691 jeremybenn
/* { dg-options "-O0 -mlong-double-128" } */
2
 
3
#include <stdio.h>
4
#include <stdlib.h>
5
 
6
void
7
check_ll (long double ld, long long ll)
8
{
9
  if ((long long)ld != ll)
10
    {
11
      printf ("ld: %Lf expect: %lld result: %lld\n",
12
              ld, ll, (long long)ld);
13
      abort ();
14
    }
15
}
16
 
17
void
18
check_ull (long double ld, unsigned long long ull)
19
{
20
  if ((unsigned long long)ld != ull)
21
    {
22
      printf ("ld: %Lf expect: %llu result: %llu\n",
23
              ld, ull, (unsigned long long)ld);
24
      abort ();
25
    }
26
}
27
 
28
int
29
main ()
30
{
31
  const long long ll_max = (long long)((1ULL << 63) - 1);
32
  const long long ll_min = -ll_max - 1;
33
 
34
  check_ll (206.23253, 206LL);
35
  check_ull (206.23253, 206ULL);
36
  check_ll ((long double)ll_max, ll_max);
37
  check_ull ((long double)ll_max, ll_max);
38
  check_ll ((long double)ll_min, ll_min);
39
  check_ll (0.0, 0);
40
  check_ull (0.0, 0);
41
  check_ll (-1.0, -1);
42
  check_ll ((long double)0xffffffffffffffffULL, ll_max);
43
  check_ull ((long double)0xffffffffffffffffULL, 0xffffffffffffffffULL);
44
 
45
  return 0;
46
}

powered by: WebSVN 2.1.0

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