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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

! { dg-require-effective-target vect_double }

PROGRAM test
  REAL(8) :: f,dist(2)
  dist = [1.0_8, 0.5_8]
  if( f(1.0_8, dist) /= MINVAL(dist)) then
    call abort ()
  endif
END PROGRAM test

FUNCTION f( x, dist ) RESULT(s)
  REAL(8) :: dist(2), x, s
  s = MINVAL(dist)
  IF( x < 0 ) s = -s
END FUNCTION f

! { dg-final { cleanup-tree-dump "vect" } }