blob: e8781f9716be98ca3ad15e8bf96fec6401d32d54 [file] [log] [blame]
/* { 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);
}