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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [961206-1.c] - Blame information for rev 774

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

Line No. Rev Author Line
1 688 jeremybenn
int
2
sub1 (unsigned long long i)
3
{
4
  if (i < 0x80000000)
5
    return 1;
6
  else
7
    return 0;
8
}
9
 
10
int
11
sub2 (unsigned long long i)
12
{
13
  if (i <= 0x7FFFFFFF)
14
    return 1;
15
  else
16
    return 0;
17
}
18
 
19
int
20
sub3 (unsigned long long i)
21
{
22
  if (i >= 0x80000000)
23
    return 0;
24
  else
25
    return 1;
26
}
27
 
28
int
29
sub4 (unsigned long long i)
30
{
31
  if (i > 0x7FFFFFFF)
32
    return 0;
33
  else
34
    return 1;
35
}
36
 
37
main()
38
{
39
  if (sub1 (0x80000000ULL))
40
    abort ();
41
 
42
  if (sub2 (0x80000000ULL))
43
    abort ();
44
 
45
  if (sub3 (0x80000000ULL))
46
    abort ();
47
 
48
  if (sub4 (0x80000000ULL))
49
    abort ();
50
 
51
  exit (0);
52
}

powered by: WebSVN 2.1.0

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