diff options
| -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 |
