From 28ef6a27c84e800fd56081cf653c6b17f896ac0f Mon Sep 17 00:00:00 2001 From: Maxim Blumenthal Date: Wed, 15 Jul 2015 13:13:10 +0000 Subject: [PATCH] Fix libgomp tests. 2015-07-15 Maxim Blumenthal 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 --- libgomp/ChangeLog | 7 +++++++ libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 | 2 +- .../testsuite/libgomp.fortran/examples-4/task_dep-5.f90 | 2 +- 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 00cdc2ede10..161c5bcd9ed 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,10 @@ +2015-07-15 Maxim Blumenthal + + * 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 * 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 ba7b0f90a4e..3c7869d602e 100644 --- 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 f12b42c19ce..0746531728e 100644 --- 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 -- 2.30.2