Fix libgomp tests.
2015-07-15 Maxim Blumenthal <maxim.blumenthal@intel.com> libgomp/ * testsuite/libgomp.fortran/examples-4/simd-8.f90: (main): Change type of EPS parameter from integer to real. * testsuite/libgomp.fortran/examples-4/task_dep-5.f90: (check): Change type of EPS parameter from integer to real. From-SVN: r225827
This commit is contained in:
parent
55cf394666
commit
28ef6a27c8
|
@ -1,3 +1,10 @@
|
|||
2015-07-15 Maxim Blumenthal <maxim.blumenthal@intel.com>
|
||||
|
||||
* testsuite/libgomp.fortran/examples-4/simd-8.f90: (main): Change type
|
||||
of EPS parameter from integer to real.
|
||||
* testsuite/libgomp.fortran/examples-4/task_dep-5.f90: (check): Change
|
||||
type of EPS parameter from integer to real.
|
||||
|
||||
2015-07-15 Sebastian Huber <sebastian.huber@embedded-brains.de>
|
||||
|
||||
* team.c (get_last_team): New.
|
||||
|
|
|
@ -36,7 +36,7 @@ program simd_8f
|
|||
implicit none
|
||||
real :: pri, arr(1000), diff
|
||||
integer :: i
|
||||
integer, parameter :: EPS = 0.005
|
||||
real, parameter :: EPS = 0.005
|
||||
|
||||
do i = 1, 1000
|
||||
P(i) = i
|
||||
|
|
|
@ -44,7 +44,7 @@ contains
|
|||
subroutine check (N, A, B)
|
||||
integer :: N
|
||||
integer :: i, j
|
||||
integer, parameter :: EPS = 0.000001
|
||||
real, parameter :: EPS = 0.000001
|
||||
real, dimension(N,N) :: A, B
|
||||
real :: diff
|
||||
do i = 1, N
|
||||
|
|
Loading…
Reference in New Issue