OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* execute/20000403-1.c: New test.

Browse Source 
From-SVN: r32902
This commit is contained in:
Hans-Peter Nilsson 2000-04-04 12:45:36 +00:00 committed by Hans-Peter Nilsson
parent a5774a7df1
commit 05ca7cfd36
2 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/gcc.c-torture/ChangeLog
View File

@ -1,3 +1,7 @@
Mon Apr 3 16:53:52 2000 Hans-Peter Nilsson <hp@axis.com>
* execute/20000403-1.c: New test.
2000-04-03 Geoff Keating <geoffk@cygnus.com>
* execute/20000402-1.c: New test.

29
gcc/testsuite/gcc.c-torture/execute/20000403-1.c Normal file
View File

@ -0,0 +1,29 @@
extern unsigned long aa[], bb[];
int seqgt (unsigned long a, unsigned short win, unsigned long b);
int seqgt2 (unsigned long a, unsigned short win, unsigned long b);
main()
{
if (! seqgt (*aa, 0x1000, *bb) || ! seqgt2 (*aa, 0x1000, *bb))
abort ();
exit (0);
}
int
seqgt (unsigned long a, unsigned short win, unsigned long b)
{
return (long) ((a + win) - b) > 0;
}
int
seqgt2 (unsigned long a, unsigned short win, unsigned long b)
{
long l = ((a + win) - b);
return l > 0;
}
unsigned long aa[] = { (1UL << (sizeof (long) * 8 - 1)) - 0xfff };
unsigned long bb[] = { (1UL << (sizeof (long) * 8 - 1)) - 0xfff };