Commit 28ef6a27 by Maxim Blumenthal Committed by Ilya Verbin

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
parent 55cf3946
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> 2015-07-15 Sebastian Huber <sebastian.huber@embedded-brains.de>
* team.c (get_last_team): New. * team.c (get_last_team): New.
......
...@@ -36,7 +36,7 @@ program simd_8f ...@@ -36,7 +36,7 @@ program simd_8f
implicit none implicit none
real :: pri, arr(1000), diff real :: pri, arr(1000), diff
integer :: i integer :: i
integer, parameter :: EPS = 0.005 real, parameter :: EPS = 0.005
do i = 1, 1000 do i = 1, 1000
P(i) = i P(i) = i
......
...@@ -44,7 +44,7 @@ contains ...@@ -44,7 +44,7 @@ contains
subroutine check (N, A, B) subroutine check (N, A, B)
integer :: N integer :: N
integer :: i, j integer :: i, j
integer, parameter :: EPS = 0.000001 real, parameter :: EPS = 0.000001
real, dimension(N,N) :: A, B real, dimension(N,N) :: A, B
real :: diff real :: diff
do i = 1, N do i = 1, N
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment