Subversion Repositories scarts

/* { dg-do run } */

/* { dg-options "-O2 -ftree-vectorize" } */

extern void abort (void);

#define MIN2(a,b) (((a)<(b)) ? (a) : (b))

#define MAX2(a,b) (((a)>(b)) ? (a) : (b))

double p[2] = { 4., 5. };

int main()

{

  long j;

  double R, n, x;

  n = 1.e300;

  x = -1.e300;

  for( j=0; j < 2; j++ )

    {

      x = MAX2(x,p[j]);

      n = MIN2(n,p[j]);

    }

  R = x-n;

  if( R < 0.1 )

      abort ();

  return 0;

}