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