1// RUN: %libomp-compile-and-run | FileCheck %s
2// REQUIRES: ompt
3// UNSUPPORTED: gcc-4, gcc-5, gcc-6, gcc-7
4#include "callback.h"
5#include <omp.h>
6
7int main()
8{
9 #pragma omp ordered
10 {
11 print_current_address(1);
12 print_ids(0);
13 }
14 print_current_address(2);
15
16
17 // Check if libomp supports the callbacks for this test.
18 // CHECK-NOT: {{^}}0: Could not register callback 'ompt_callback_mutex_acquire'
19 // CHECK-NOT: {{^}}0: Could not register callback 'ompt_callback_mutex_acquired'
20 // CHECK-NOT: {{^}}0: Could not register callback 'ompt_callback_mutex_released'
21 // CHECK-NOT: {{^}}0: Could not register callback 'ompt_callback_nest_lock'
22
23 // CHECK: 0: NULL_POINTER=[[NULL:.*$]]
24
25 // CHECK: {{^}}[[MASTER_ID:[0-9]+]]: ompt_event_wait_ordered: wait_id=[[WAIT_ID:[0-9]+]], hint={{[0-9]+}}, impl={{[0-9]+}}, codeptr_ra=[[RETURN_ADDRESS:0x[0-f]+]]
26 // CHECK: {{^}}[[MASTER_ID]]: ompt_event_acquired_ordered: wait_id=[[WAIT_ID]], codeptr_ra=[[RETURN_ADDRESS]]
27 // CHECK-NEXT: {{^}}[[MASTER_ID]]: current_address={{.*}}[[RETURN_ADDRESS]]
28 // CHECK: {{^}}[[MASTER_ID]]: ompt_event_release_ordered: wait_id=[[WAIT_ID]], codeptr_ra=[[RETURN_ADDRESS:0x[0-f]+]]
29 // CHECK-NEXT: {{^}}[[MASTER_ID]]: current_address={{.*}}[[RETURN_ADDRESS]]
30
31 return 0;
32}
33

source code of openmp/runtime/test/ompt/synchronization/ordered.c