1184610SalfredC { dg-do run }
2184610Salfred
3184610Salfred      USE OMP_LIB
4184610Salfred
5184610Salfred      DOUBLE PRECISION :: D, E
6189002Sed      LOGICAL :: L
7184610Salfred      INTEGER (KIND = OMP_LOCK_KIND) :: LCK
8184610Salfred      INTEGER (KIND = OMP_NEST_LOCK_KIND) :: NLCK
9184610Salfred
10184610Salfred      D = OMP_GET_WTIME ()
11184610Salfred
12184610Salfred      CALL OMP_INIT_LOCK (LCK)
13184610Salfred      CALL OMP_SET_LOCK (LCK)
14184610Salfred      IF (OMP_TEST_LOCK (LCK)) CALL ABORT
15184610Salfred      CALL OMP_UNSET_LOCK (LCK)
16184610Salfred      IF (.NOT. OMP_TEST_LOCK (LCK)) CALL ABORT
17184610Salfred      IF (OMP_TEST_LOCK (LCK)) CALL ABORT
18184610Salfred      CALL OMP_UNSET_LOCK (LCK)
19184610Salfred      CALL OMP_DESTROY_LOCK (LCK)
20184610Salfred
21184610Salfred      CALL OMP_INIT_NEST_LOCK (NLCK)
22184610Salfred      IF (OMP_TEST_NEST_LOCK (NLCK) .NE. 1) CALL ABORT
23184610Salfred      CALL OMP_SET_NEST_LOCK (NLCK)
24184610Salfred      IF (OMP_TEST_NEST_LOCK (NLCK) .NE. 3) CALL ABORT
25184610Salfred      CALL OMP_UNSET_NEST_LOCK (NLCK)
26184610Salfred      CALL OMP_UNSET_NEST_LOCK (NLCK)
27184610Salfred      IF (OMP_TEST_NEST_LOCK (NLCK) .NE. 2) CALL ABORT
28184610Salfred      CALL OMP_UNSET_NEST_LOCK (NLCK)
29184610Salfred      CALL OMP_UNSET_NEST_LOCK (NLCK)
30184610Salfred      CALL OMP_DESTROY_NEST_LOCK (NLCK)
31184610Salfred
32184610Salfred      CALL OMP_SET_DYNAMIC (.TRUE.)
33184610Salfred      IF (.NOT. OMP_GET_DYNAMIC ()) CALL ABORT
34184610Salfred      CALL OMP_SET_DYNAMIC (.FALSE.)
35184610Salfred      IF (OMP_GET_DYNAMIC ()) CALL ABORT
36184610Salfred
37184610Salfred      CALL OMP_SET_NESTED (.TRUE.)
38184610Salfred      IF (.NOT. OMP_GET_NESTED ()) CALL ABORT
39184610Salfred      CALL OMP_SET_NESTED (.FALSE.)
40184610Salfred      IF (OMP_GET_NESTED ()) CALL ABORT
41184610Salfred
42184610Salfred      CALL OMP_SET_NUM_THREADS (5)
43184610Salfred      IF (OMP_GET_NUM_THREADS () .NE. 1) CALL ABORT
44184610Salfred      IF (OMP_GET_MAX_THREADS () .NE. 5) CALL ABORT
45184610Salfred      IF (OMP_GET_THREAD_NUM () .NE. 0) CALL ABORT
46184610Salfred      CALL OMP_SET_NUM_THREADS (3)
47184610Salfred      IF (OMP_GET_NUM_THREADS () .NE. 1) CALL ABORT
48184610Salfred      IF (OMP_GET_MAX_THREADS () .NE. 3) CALL ABORT
49184610Salfred      IF (OMP_GET_THREAD_NUM () .NE. 0) CALL ABORT
50184610Salfred      L = .FALSE.
51184610SalfredC$OMP PARALLEL REDUCTION (.OR.:L)
52184610Salfred      L = OMP_GET_NUM_THREADS () .NE. 3
53184610Salfred      L = L .OR. (OMP_GET_THREAD_NUM () .LT. 0)
54184610Salfred      L = L .OR. (OMP_GET_THREAD_NUM () .GE. 3)
55184610SalfredC$OMP MASTER
56184610Salfred      L = L .OR. (OMP_GET_THREAD_NUM () .NE. 0)
57184610SalfredC$OMP END MASTER
58184610SalfredC$OMP END PARALLEL
59184610Salfred      IF (L) CALL ABORT
60184610Salfred
61184610Salfred      IF (OMP_GET_NUM_PROCS () .LE. 0) CALL ABORT
62184610Salfred      IF (OMP_IN_PARALLEL ()) CALL ABORT
63184610SalfredC$OMP PARALLEL REDUCTION (.OR.:L)
64184610Salfred      L = .NOT. OMP_IN_PARALLEL ()
65184610SalfredC$OMP END PARALLEL
66184610SalfredC$OMP PARALLEL REDUCTION (.OR.:L) IF (.TRUE.)
67184610Salfred      L = .NOT. OMP_IN_PARALLEL ()
68184610SalfredC$OMP END PARALLEL
69184610Salfred
70184610Salfred      E = OMP_GET_WTIME ()
71184610Salfred      IF (D .GT. E) CALL ABORT
72184610Salfred      D = OMP_GET_WTICK ()
73184610SalfredC Negative precision is definitely wrong,
74184610SalfredC bigger than 1s clock resolution is also strange
75184610Salfred      IF (D .LE. 0 .OR. D .GT. 1.) CALL ABORT
76184610Salfred      END
77184610Salfred