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

20010224-1.c: New test.

Browse Source 
2001-02-24  Franz Sirl  <Franz.Sirl-kernel@lauterbach.com>

        * gcc.c-torture/execute/20010224-1.c: New test.

From-SVN: r40043
This commit is contained in:
Franz Sirl 2001-02-25 00:10:59 +00:00 committed by Franz Sirl
parent c7b3067700
commit d82a963983
2 changed files with 48 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 @@
2001-02-24 Franz Sirl <Franz.Sirl-kernel@lauterbach.com>
* gcc.c-torture/execute/20010224-1.c: New test.
2001-02-23 Jakub Jelinek <jakub@redhat.com>
* gcc.c-torture/execute/20010222-1.c: New test.

44
gcc/testsuite/gcc.c-torture/execute/20010224-1.c Normal file
View File

@ -0,0 +1,44 @@
extern void abort (void);
typedef signed short int16_t;
typedef unsigned short uint16_t;
int16_t logadd (int16_t *a, int16_t *b);
void ba_compute_psd (int16_t start);
int16_t masktab[6] = { 1, 2, 3, 4, 5};
int16_t psd[6] = { 50, 40, 30, 20, 10};
int16_t bndpsd[6] = { 1, 2, 3, 4, 5};
void ba_compute_psd (int16_t start)
{
int i,j,k;
int16_t lastbin = 4;
j = start;
k = masktab[start];
bndpsd[k] = psd[j];
j++;
for (i = j; i < lastbin; i++) {
bndpsd[k] = logadd(&bndpsd[k], &psd[j]);
j++;
}
}
int16_t logadd (int16_t *a, int16_t *b)
{
return *a + *b;
}
int main (void)
{
int i;
ba_compute_psd (0);
if (bndpsd[1] != 140) abort ();
return 0;
}