e.54.2.c (main): Use N / 8 instead of 32 as block_size.

	* libgomp.c/examples-4/e.54.2.c (main): Use N / 8 instead
	of 32 as block_size.
	* libgomp.fortran/examples-4/e.54.2.f90 (e_54_1): Use n / 8
	instead of 32 as block_size.

From-SVN: r217579

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 0662415f255dea1ca7bfa6f23bee01e47b342ff6..737cd2476b637cae53f96da7d60c1cae0e3059af 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,10 @@
+2014-11-14  Jakub Jelinek  <jakub@redhat.com>
+
+       * libgomp.c/examples-4/e.54.2.c (main): Use N / 8 instead
+       of 32 as block_size.
+       * libgomp.fortran/examples-4/e.54.2.f90 (e_54_1): Use n / 8
+       instead of 32 as block_size.
+
 2014-11-13  Andrey Turetskiy  <andrey.turetskiy@intel.com>
            Ilya Verbin  <ilya.verbin@intel.com>
 

diff --git a/libgomp/testsuite/libgomp.c/examples-4/e.54.2.c b/libgomp/testsuite/libgomp.c/examples-4/e.54.2.c
index a4fdca6ed60c88c1932f029306dfe6453f779de7..8bbbc355b17402f008362a7e05a100f0f3a3c4a6 100644 (file)
--- a/libgomp/testsuite/libgomp.c/examples-4/e.54.2.c
+++ b/libgomp/testsuite/libgomp.c/examples-4/e.54.2.c
@@ -61,7 +61,7 @@ int main ()
   init (v1, v2, N);
 
   p1 = dotprod_ref (v1, v2, N);
-  p2 = dotprod (v1, v2, N, 32, 2, 8);
+  p2 = dotprod (v1, v2, N, N / 8, 2, 8);
 
   check (p1, p2);
 

diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/e.54.2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/e.54.2.f90
index 7daed69481ee9564a8fc3febfe788669ce991b4b..6a830184ded3355b20dfe3f01e2857f23b4ccb85 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/examples-4/e.54.2.f90
+++ b/libgomp/testsuite/libgomp.fortran/examples-4/e.54.2.f90
@@ -59,7 +59,7 @@ program e_54_1
   allocate (B(n), C(n))
   call init (B, C, n)
   ref = dotprod_ref (B, C, n)
-  d = dotprod (B, C, n, 32, 2, 8)
+  d = dotprod (B, C, n, n / 8, 2, 8)
   call check (ref, d)
   deallocate (B, C)
 end program