29 lines
643 B
C
29 lines
643 B
C
/* { dg-do compile { target { powerpc*-*-* } } } */
|
|
/* { dg-skip-if "" { powerpc*-*-darwin* } } */
|
|
/* { dg-require-effective-target powerpc_vsx_ok } */
|
|
/* { dg-options "-O3 -mdejagnu-cpu=power7 -misel -ffast-math" } */
|
|
|
|
struct phylo_s {
|
|
int left;
|
|
};
|
|
void Free2DArray (void **, int);
|
|
|
|
int Cluster(float **dmx, int N, struct phylo_s *tree)
|
|
{
|
|
float **mx;
|
|
int *coord;
|
|
int i;
|
|
int Np;
|
|
int row, col;
|
|
float min;
|
|
for (col = 0; col < N; Np--)
|
|
{
|
|
for (row = 0; row < Np; row++)
|
|
for (col = row+1; col < Np; col++)
|
|
if (mx[row][col] < min)
|
|
i = row;
|
|
tree[Np-2].left = coord[i];
|
|
}
|
|
Free2DArray((void **) mx, N);
|
|
}
|