URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [vect/] [fast-math-pr33299.f90] - Blame information for rev 302

Details | Compare with Previous | View Log


! { 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" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { 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" } }`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [vect/] [fast-math-pr33299.f90] - Blame information for rev 302