openmp/runtime/test/ompt/cancel/cancel_parallel.c

   1 // RUN: %libomp-compile && env OMP_CANCELLATION=true %libomp-run | %sort-threads | FileCheck %s
   2 // REQUIRES: ompt
   3 // Current GOMP interface implementation does not support cancellation
   4 // XFAIL: gcc
   5
   6 #include "callback.h"
   7 #include "omp.h"
   8
   9 int main() {
  10   #pragma omp parallel num_threads(2)
  11   {
  12     if (omp_get_thread_num() == 0) {
  13       print_fuzzy_address_blocks(get_ompt_label_address(1));
  14       #pragma omp cancel parallel
  15       define_ompt_label(1);
  16       // We cannot print at this location because the parallel region is cancelled!
  17     } else {
  18       delay(100);
  19       print_fuzzy_address_blocks(get_ompt_label_address(2));
  20       #pragma omp cancellation point parallel
  21       define_ompt_label(2);
  22       // We cannot print at this location because the parallel region is cancelled!
  23     }
  24   }
  25
  26   // Check if libomp supports the callbacks for this test.
  27   // CHECK-NOT: {{^}}0: Could not register callback 'ompt_callback_implicit_task'
  28   // CHECK-NOT: {{^}}0: Could not register callback 'ompt_callback_cancel'
  29
  30   // CHECK: {{^}}0: NULL_POINTER=[[NULL:.*$]]
  31   // CHECK: {{^}}[[MASTER_ID:[0-9]+]]: ompt_event_initial_task_begin: parallel_id={{[0-9]+}}, task_id={{[0-9]+}}, actual_parallelism=1, index=1, flags=1
  32   // CHECK-DAG: {{^}}[[MASTER_ID]]: ompt_event_cancel: task_data=[[TASK_ID:[0-9]+]], flags=ompt_cancel_parallel|ompt_cancel_activated=17, codeptr_ra=[[RETURN_ADDRESS:0x[0-f]+]]{{[0-f][0-f]}}
  33   // CHECK-DAG: {{^}}[[MASTER_ID]]: fuzzy_address={{.*}}[[RETURN_ADDRESS]]
  34
  35   // CHECK: {{^}}[[THREAD_ID:[0-9]+]]: ompt_event_implicit_task_begin
  36   // CHECK-DAG: {{^}}[[THREAD_ID]]: ompt_event_cancel: task_data=[[TASK_ID:[0-9]+]], flags=ompt_cancel_parallel|ompt_cancel_detected=33, codeptr_ra=[[OTHER_RETURN_ADDRESS:0x[0-f]+]]{{[0-f][0-f]}}
  37   // CHECK-DAG: {{^}}[[THREAD_ID]]: fuzzy_address={{.*}}[[OTHER_RETURN_ADDRESS]]
  38
  39   return 0;
  40 }