blob: 5cdb4725dbf8ccb468dafe61baa4e3d598f154ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
/* { dg-options "-O2" } */
typedef struct test input ;
struct test
{
int type ;
int symflag ;
};
Chv_copyEntriesToVector ( input *chv,double *dvec)
{
double *entries ;
int mm, nent;
int first, i, k , stride ;
if ( ((chv)->type == 1) )
{
for ( i = 0 ; i < 10 ; i++)
{
dvec[2*mm] = entries[2*k] ;
k += stride ;
stride -= 2 ;
}
}
return(mm) ;
}
|