182e94a59SJoachim Protze // RUN: %libomp-compile-and-run | FileCheck %s
282e94a59SJoachim Protze // REQUIRES: ompt
382e94a59SJoachim Protze #include "callback.h"
482e94a59SJoachim Protze #include <omp.h>
582e94a59SJoachim Protze
main()682e94a59SJoachim Protze int main()
782e94a59SJoachim Protze {
84c6a098aSKazuaki Ishizaki //need to use an OpenMP construct so that OMPT will be initialized
982e94a59SJoachim Protze #pragma omp parallel num_threads(1)
1082e94a59SJoachim Protze print_ids(0);
1182e94a59SJoachim Protze
1282e94a59SJoachim Protze omp_nest_lock_t nest_lock;
13*6213ed06SJoachim Protze printf("%" PRIu64 ": &nest_lock: %" PRIu64 "\n",
14*6213ed06SJoachim Protze ompt_get_thread_data()->value, (ompt_wait_id_t)(uintptr_t)&nest_lock);
1582e94a59SJoachim Protze omp_init_nest_lock(&nest_lock);
16723560d1SJonas Hahnfeld print_fuzzy_address(1);
1782e94a59SJoachim Protze omp_set_nest_lock(&nest_lock);
18723560d1SJonas Hahnfeld print_fuzzy_address(2);
1982e94a59SJoachim Protze omp_set_nest_lock(&nest_lock);
20723560d1SJonas Hahnfeld print_fuzzy_address(3);
2182e94a59SJoachim Protze omp_unset_nest_lock(&nest_lock);
22723560d1SJonas Hahnfeld print_fuzzy_address(4);
2382e94a59SJoachim Protze omp_unset_nest_lock(&nest_lock);
24723560d1SJonas Hahnfeld print_fuzzy_address(5);
2582e94a59SJoachim Protze omp_destroy_nest_lock(&nest_lock);
26723560d1SJonas Hahnfeld print_fuzzy_address(6);
2782e94a59SJoachim Protze
2882e94a59SJoachim Protze
2982e94a59SJoachim Protze // Check if libomp supports the callbacks for this test.
3082e94a59SJoachim Protze // CHECK-NOT: {{^}}0: Could not register callback 'ompt_callback_mutex_acquire'
3182e94a59SJoachim Protze // CHECK-NOT: {{^}}0: Could not register callback 'ompt_callback_mutex_acquired'
3282e94a59SJoachim Protze // CHECK-NOT: {{^}}0: Could not register callback 'ompt_callback_mutex_released'
3382e94a59SJoachim Protze // CHECK-NOT: {{^}}0: Could not register callback 'ompt_callback_nest_lock'
3482e94a59SJoachim Protze
3582e94a59SJoachim Protze // CHECK: 0: NULL_POINTER=[[NULL:.*$]]
3682e94a59SJoachim Protze
37723560d1SJonas Hahnfeld // CHECK: {{^}}[[MASTER_ID:[0-9]+]]: ompt_event_init_nest_lock: wait_id=[[WAIT_ID:[0-9]+]], hint={{[0-9]+}}, impl={{[0-9]+}}, codeptr_ra=[[RETURN_ADDRESS:0x[0-f]+]]{{[0-f][0-f]}}
38723560d1SJonas Hahnfeld // CHECK-NEXT: {{^}}[[MASTER_ID]]: fuzzy_address={{.*}}[[RETURN_ADDRESS]]
39723560d1SJonas Hahnfeld // CHECK: {{^}}[[MASTER_ID]]: ompt_event_wait_nest_lock: wait_id=[[WAIT_ID]], hint={{[0-9]+}}, impl={{[0-9]+}}, codeptr_ra=[[RETURN_ADDRESS:0x[0-f]+]]{{[0-f][0-f]}}
40723560d1SJonas Hahnfeld // CHECK: {{^}}[[MASTER_ID]]: ompt_event_acquired_nest_lock_first: wait_id=[[WAIT_ID]], codeptr_ra=[[RETURN_ADDRESS]]{{[0-f][0-f]}}
41723560d1SJonas Hahnfeld // CHECK-NEXT: {{^}}[[MASTER_ID]]: fuzzy_address={{.*}}[[RETURN_ADDRESS]]
42723560d1SJonas Hahnfeld // CHECK: {{^}}[[MASTER_ID]]: ompt_event_wait_nest_lock: wait_id=[[WAIT_ID]], hint={{[0-9]+}}, impl={{[0-9]+}}, codeptr_ra=[[RETURN_ADDRESS:0x[0-f]+]]{{[0-f][0-f]}}
4382e94a59SJoachim Protze // CHECK: {{^}}[[MASTER_ID]]: ompt_event_acquired_nest_lock_next: wait_id=[[WAIT_ID]], codeptr_ra=[[RETURN_ADDRESS]]
44723560d1SJonas Hahnfeld // CHECK-NEXT: {{^}}[[MASTER_ID]]: fuzzy_address={{.*}}[[RETURN_ADDRESS]]
45723560d1SJonas Hahnfeld // CHECK: {{^}}[[MASTER_ID]]: ompt_event_release_nest_lock_prev: wait_id=[[WAIT_ID]], codeptr_ra=[[RETURN_ADDRESS:0x[0-f]+]]{{[0-f][0-f]}}
46723560d1SJonas Hahnfeld // CHECK-NEXT: {{^}}[[MASTER_ID]]: fuzzy_address={{.*}}[[RETURN_ADDRESS]]
47723560d1SJonas Hahnfeld // CHECK: {{^}}[[MASTER_ID]]: ompt_event_release_nest_lock_last: wait_id=[[WAIT_ID]], codeptr_ra=[[RETURN_ADDRESS:0x[0-f]+]]{{[0-f][0-f]}}
48723560d1SJonas Hahnfeld // CHECK-NEXT: {{^}}[[MASTER_ID]]: fuzzy_address={{.*}}[[RETURN_ADDRESS]]
49723560d1SJonas Hahnfeld // CHECK: {{^}}[[MASTER_ID]]: ompt_event_destroy_nest_lock: wait_id=[[WAIT_ID]], codeptr_ra=[[RETURN_ADDRESS:0x[0-f]+]]{{[0-f][0-f]}}
50723560d1SJonas Hahnfeld // CHECK-NEXT: {{^}}[[MASTER_ID]]: fuzzy_address={{.*}}[[RETURN_ADDRESS]]
5182e94a59SJoachim Protze
5282e94a59SJoachim Protze return 0;
5382e94a59SJoachim Protze }
54