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

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 00cdc2ede104393b1d3c90d5e188fee3f2e5689b..161c5bcd9ed67844be70d7d50938bda2f7afab89 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -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.

diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90
index ba7b0f90a4efcb03c7dc8d9e475cc6cbb1c1e89e..3c7869d602ed1865a1e034c478bae9d8789de70f 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90
+++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90
@@ -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

diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90
index f12b42c19cee86fe308b156a62d4974132ae240b..0746531728e301a4213e7ce33d4aaf00f6f4a06e 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90
+++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90
@@ -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