diff options
| author | tschwinge <tschwinge@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-11 10:43:15 +0000 |
|---|---|---|
| committer | tschwinge <tschwinge@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-11 10:43:15 +0000 |
| commit | fe3e217805a238ec8e12ddaa52df93fdff07e682 (patch) | |
| tree | 283ac5331480963d445d99638a12cbac709e8f8b /libgomp | |
| parent | 450988d5ae62b2cac24969e7b800ef9d45c28078 (diff) | |
| download | gcc-fe3e217805a238ec8e12ddaa52df93fdff07e682.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@203420 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgomp')
| -rw-r--r-- | libgomp/ChangeLog | 5 | ||||
| -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 |
5 files changed, 10 insertions, 0 deletions
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 8d4fb6cb499..3788d673e12 100644 --- 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 4839cf936f2..086036d0a69 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 8840018674a..e7e1c748a31 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 75510827043..20db04a1c5f 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 fa7b227c0ef..264a377e5dd 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 |