gcc/testsuite/gfortran.dg/vect/fast-math-pr33299.f90

   1 ! { dg-require-effective-target vect_double }
   2
   3 PROGRAM test
   4   REAL(8) :: f,dist(2)
   5   dist = [1.0_8, 0.5_8]
   6   if( f(1.0_8, dist) /= MINVAL(dist)) then
   7     call abort ()
   8   endif
   9 END PROGRAM test
  10
  11 FUNCTION f( x, dist ) RESULT(s)
  12   REAL(8) :: dist(2), x, s
  13   s = MINVAL(dist)
  14   IF( x < 0 ) s = -s
  15 END FUNCTION f
  16
  17 ! { dg-final { cleanup-tree-dump "vect" } }