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

New test.

Browse Source 
From-SVN: r55599
This commit is contained in:
Alan Modra 2002-07-20 00:33:49 +00:00 committed by Alan Modra
parent 8b583747ad
commit a0c58ea9ac
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2002-07-20 Alan Modra <amodra@bigpond.net.au>
* gcc.c-torture/execute/loop-13.c: New test.
2002-07-19 Neil Booth <neil@daikokuya.co.uk>
* gcc.dg/cpp/expr.c: New tests.

36
gcc/testsuite/gcc.c-torture/execute/loop-13.c Normal file
View File

@ -0,0 +1,36 @@
/* PR opt/7130 */
#define TYPE long
void
scale (TYPE *alpha, TYPE *x, int n)
{
int i, ix;
if (*alpha != 1)
for (i = 0, ix = 0; i < n; i++, ix += 2)
{
TYPE tmpr, tmpi;
tmpr = *alpha * x[ix];
tmpi = *alpha * x[ix + 1];
x[ix] = tmpr;
x[ix + 1] = tmpi;
}
}
int
main (void)
{
int i;
TYPE x[10];
TYPE alpha = 2;
for (i = 0; i < 10; i++)
x[i] = i;
scale (&alpha, x, 5);
if (x[9] != 18)
abort ();
return 0;
}