lib-1.c (main): Add missing error check.

libgomp/
	* testsuite/libgomp.c/lib-1.c (main): Add missing error check.
	* testsuite/libgomp.fortran/lib1.f90: Likewise.
	* testsuite/libgomp.fortran/lib2.f: Likewise.
	* testsuite/libgomp.fortran/lib3.f: Likewise.

From-SVN: r203420

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 8d4fb6cb499d39042e7481a2978ef7d2e714e9d6..3788d673e128d24cd1f58de730b974cc88d182b4 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,5 +1,10 @@
 2013-10-11  Thomas Schwinge  <thomas@codesourcery.com>
 
+       * testsuite/libgomp.c/lib-1.c (main): Add missing error check.
+       * testsuite/libgomp.fortran/lib1.f90: Likewise.
+       * testsuite/libgomp.fortran/lib2.f: Likewise.
+       * testsuite/libgomp.fortran/lib3.f: Likewise.
+
        * configure.ac: Typo fix.
        * configure: Regenerate.
 

diff --git a/libgomp/testsuite/libgomp.c/lib-1.c b/libgomp/testsuite/libgomp.c/lib-1.c
index 4839cf936f20d20a90a5fa4e4b6764fa0d6bcb3d..086036d0a699cfb7d6d7a963b1652e6245ed7459 100644 (file)
--- a/libgomp/testsuite/libgomp.c/lib-1.c
+++ b/libgomp/testsuite/libgomp.c/lib-1.c
@@ -85,6 +85,8 @@ main (void)
   l = ! omp_in_parallel ();
 #pragma omp parallel reduction (|:l) if (1)
   l = ! omp_in_parallel ();
+  if (l)
+    abort ();
 
   e = omp_get_wtime ();
   if (d > e)

diff --git a/libgomp/testsuite/libgomp.fortran/lib1.f90 b/libgomp/testsuite/libgomp.fortran/lib1.f90
index 8840018674adb62c3ae6e5d91c057b7dcacd8649..e7e1c748a31806c10a0bddac043c14be99db1ea5 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/lib1.f90
+++ b/libgomp/testsuite/libgomp.fortran/lib1.f90
@@ -66,6 +66,7 @@
 !$omp parallel reduction (.or.:l) if (.true.)
   l = .not. omp_in_parallel ()
 !$omp end parallel
+  if (l) call abort
 
   e = omp_get_wtime ()
   if (d .gt. e) call abort

diff --git a/libgomp/testsuite/libgomp.fortran/lib2.f b/libgomp/testsuite/libgomp.fortran/lib2.f
index 75510827043ec732ada4efb6f79285d9fd1fe047..20db04a1c5f1b0b67e1628b6a20a4d6df12e669c 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/lib2.f
+++ b/libgomp/testsuite/libgomp.fortran/lib2.f
@@ -66,6 +66,7 @@ C$OMP END PARALLEL
 C$OMP PARALLEL REDUCTION (.OR.:L) IF (.TRUE.)
       L = .NOT. OMP_IN_PARALLEL ()
 C$OMP END PARALLEL
+      IF (L) CALL ABORT
 
       E = OMP_GET_WTIME ()
       IF (D .GT. E) CALL ABORT

diff --git a/libgomp/testsuite/libgomp.fortran/lib3.f b/libgomp/testsuite/libgomp.fortran/lib3.f
index fa7b227c0ef7f7a7a745edbf407cf8be2a848728..264a377e5ddd339d2f96c5988d9222bd9ece4e86 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/lib3.f
+++ b/libgomp/testsuite/libgomp.fortran/lib3.f
@@ -66,6 +66,7 @@ C$OMP END PARALLEL
 C$OMP PARALLEL REDUCTION (.OR.:L) IF (.TRUE.)
       L = .NOT. OMP_IN_PARALLEL ()
 C$OMP END PARALLEL
+      IF (L) CALL ABORT
 
       E = OMP_GET_WTIME ()
       IF (D .GT. E) CALL ABORT