diff options
| author | Thomas Schwinge <thomas@codesourcery.com> | 2013-10-11 12:43:15 +0200 |
|---|---|---|
| committer | Thomas Schwinge <tschwinge@gcc.gnu.org> | 2013-10-11 12:43:15 +0200 |
| commit | b5512c66a7c63bdf2b0949444c7373141b9c0720 (patch) | |
| tree | 283ac5331480963d445d99638a12cbac709e8f8b /libgomp/testsuite | |
| parent | 1ac4b8e4ec5c1df346ed1d44140a3f17cc722716 (diff) | |
| download | gcc-b5512c66a7c63bdf2b0949444c7373141b9c0720.zip gcc-b5512c66a7c63bdf2b0949444c7373141b9c0720.tar.gz gcc-b5512c66a7c63bdf2b0949444c7373141b9c0720.tar.bz2 | |
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
Diffstat (limited to 'libgomp/testsuite')
| -rw-r--r-- | libgomp/testsuite/libgomp.c/lib-1.c | 2 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/lib1.f90 | 1 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/lib2.f | 1 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/lib3.f | 1 |
4 files changed, 5 insertions, 0 deletions
diff --git a/libgomp/testsuite/libgomp.c/lib-1.c b/libgomp/testsuite/libgomp.c/lib-1.c index 4839cf93..086036d 100644 --- 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 8840018..e7e1c74 100644 --- 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 7551082..20db04a 100644 --- 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 fa7b227..264a377 100644 --- 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 |