1  /* { dg-do compile { target { powerpc*-*-* } } } */
       2  /* { dg-skip-if "" { powerpc*-*-darwin* } } */
       3  /* { dg-require-effective-target powerpc_vsx_ok } */
       4  /* { dg-options "-O3 -mdejagnu-cpu=power7 -misel -ffast-math" } */
       5  
       6  struct phylo_s {
       7    int left;
       8  };
       9  void Free2DArray (void **, int);
      10  
      11  int Cluster(float **dmx, int N, struct phylo_s *tree)
      12  {
      13    float **mx;
      14    int *coord;
      15    int i;
      16    int Np;
      17    int row, col;
      18    float min;
      19    for (col = 0; col < N; Np--)
      20      {
      21        for (row = 0; row < Np; row++)
      22  	for (col = row+1; col < Np; col++)
      23  	  if (mx[row][col] < min)
      24  	    i = row;
      25        tree[Np-2].left = coord[i];
      26      }
      27    Free2DArray((void **) mx, N);
      28  }