25 lines
400 B
C
25 lines
400 B
C
/* { 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) ;
|
|
}
|