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
This commit is contained in:
parent
1ac4b8e4ec
commit
b5512c66a7
|
@ -1,5 +1,10 @@
|
||||||
2013-10-11 Thomas Schwinge <thomas@codesourcery.com>
|
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.ac: Typo fix.
|
||||||
* configure: Regenerate.
|
* configure: Regenerate.
|
||||||
|
|
||||||
|
|
|
@ -85,6 +85,8 @@ main (void)
|
||||||
l = ! omp_in_parallel ();
|
l = ! omp_in_parallel ();
|
||||||
#pragma omp parallel reduction (|:l) if (1)
|
#pragma omp parallel reduction (|:l) if (1)
|
||||||
l = ! omp_in_parallel ();
|
l = ! omp_in_parallel ();
|
||||||
|
if (l)
|
||||||
|
abort ();
|
||||||
|
|
||||||
e = omp_get_wtime ();
|
e = omp_get_wtime ();
|
||||||
if (d > e)
|
if (d > e)
|
||||||
|
|
|
@ -66,6 +66,7 @@
|
||||||
!$omp parallel reduction (.or.:l) if (.true.)
|
!$omp parallel reduction (.or.:l) if (.true.)
|
||||||
l = .not. omp_in_parallel ()
|
l = .not. omp_in_parallel ()
|
||||||
!$omp end parallel
|
!$omp end parallel
|
||||||
|
if (l) call abort
|
||||||
|
|
||||||
e = omp_get_wtime ()
|
e = omp_get_wtime ()
|
||||||
if (d .gt. e) call abort
|
if (d .gt. e) call abort
|
||||||
|
|
|
@ -66,6 +66,7 @@ C$OMP END PARALLEL
|
||||||
C$OMP PARALLEL REDUCTION (.OR.:L) IF (.TRUE.)
|
C$OMP PARALLEL REDUCTION (.OR.:L) IF (.TRUE.)
|
||||||
L = .NOT. OMP_IN_PARALLEL ()
|
L = .NOT. OMP_IN_PARALLEL ()
|
||||||
C$OMP END PARALLEL
|
C$OMP END PARALLEL
|
||||||
|
IF (L) CALL ABORT
|
||||||
|
|
||||||
E = OMP_GET_WTIME ()
|
E = OMP_GET_WTIME ()
|
||||||
IF (D .GT. E) CALL ABORT
|
IF (D .GT. E) CALL ABORT
|
||||||
|
|
|
@ -66,6 +66,7 @@ C$OMP END PARALLEL
|
||||||
C$OMP PARALLEL REDUCTION (.OR.:L) IF (.TRUE.)
|
C$OMP PARALLEL REDUCTION (.OR.:L) IF (.TRUE.)
|
||||||
L = .NOT. OMP_IN_PARALLEL ()
|
L = .NOT. OMP_IN_PARALLEL ()
|
||||||
C$OMP END PARALLEL
|
C$OMP END PARALLEL
|
||||||
|
IF (L) CALL ABORT
|
||||||
|
|
||||||
E = OMP_GET_WTIME ()
|
E = OMP_GET_WTIME ()
|
||||||
IF (D .GT. E) CALL ABORT
|
IF (D .GT. E) CALL ABORT
|
||||||
|
|
Loading…
Reference in New Issue