1 /* { dg-do compile { target { powerpc*-*-* } } } */
2 /* { dg-skip-if "" { powerpc*-*-darwin* } } */
3 /* { dg-require-effective-target powerpc_vsx_ok } */
4 /* { dg-skip-if "do not override -mcpu" { powerpc*-*-* } { "-mcpu=*" } { "-mcpu=power7" } } */
5 /* { dg-options "-O3 -mcpu=power7 -misel -ffast-math" } */
10 void Free2DArray (void **, int);
12 int Cluster(float **dmx
, int N
, struct phylo_s
*tree
)
20 for (col
= 0; col
< N
; Np
--)
22 for (row
= 0; row
< Np
; row
++)
23 for (col
= row
+1; col
< Np
; col
++)
24 if (mx
[row
][col
] < min
)
26 tree
[Np
-2].left
= coord
[i
];
28 Free2DArray((void **) mx
, N
);