This is an archive of the discontinued LLVM Phabricator instance.

Differential D100186

[OpenMP] [OMPD] [6/6] Implementation of OMPD debugging library - libompd. libompd-tests: Testcases for libompd
AcceptedPublic

Authored by Vigneshbalu on Apr 9 2021, 5:28 AM.

Details

Reviewers
jdoerfert
protze.joachim
hbae
dreachem
RaviNarayanaswamy
Summary

This is part of the review: https://reviews.llvm.org/D100181
Testcase for libompd.

Diff Detail

Event Timeline

Vigneshbalu created this revision.Apr 9 2021, 5:28 AM
Herald added subscribers: guansong, yaxunl, mgorny. · View Herald TranscriptApr 9 2021, 5:28 AM
Vigneshbalu requested review of this revision.Apr 9 2021, 5:28 AM
Herald added a reviewer: jdoerfert. · View Herald TranscriptApr 9 2021, 5:28 AM
Herald added a project: Restricted Project. · View Herald Transcript
Herald added subscribers: openmp-commits, sstefan1. · View Herald Transcript
Harbormaster completed remote builds in B97952: Diff 336413.Apr 9 2021, 5:29 AM
Vigneshbalu added a parent revision: D100185: [OpenMP] [OMPD] [5/6] Implementation of OMPD debugging library - libompd. gdb-plugin: A Plugin code to gdb to leverage libompd to provide debugging support..Apr 9 2021, 5:29 AM
Vigneshbalu updated this revision to Diff 336419.Apr 9 2021, 5:46 AM
Harbormaster completed remote builds in B97957: Diff 336419.Apr 9 2021, 6:32 AM
Vigneshbalu changed the visibility from "Public (No Login Required)" to "Vigneshbalu (Vignesh Balasubramanian)".Apr 9 2021, 7:56 AM
Vigneshbalu changed the visibility from "Vigneshbalu (Vignesh Balasubramanian)" to "Public (No Login Required)".Apr 11 2021, 9:48 AM
Vigneshbalu added a parent revision: D100366: [OpenMP] [OMPD] openmp/runtime code changes required for OMPD.Apr 13 2021, 1:20 AM
Vigneshbalu updated this revision to Diff 340024.Apr 23 2021, 7:21 AM

Addressed clang-tidy warnings.

Harbormaster completed remote builds in B100570: Diff 340024.Apr 23 2021, 7:29 AM
Vigneshbalu updated this revision to Diff 340243.Apr 23 2021, 11:41 PM
Harbormaster completed remote builds in B100736: Diff 340243.Apr 23 2021, 11:42 PM
Vigneshbalu updated this revision to Diff 340273.Apr 24 2021, 6:43 AM
Vigneshbalu removed a parent revision: D100366: [OpenMP] [OMPD] openmp/runtime code changes required for OMPD.
Harbormaster completed remote builds in B100753: Diff 340273.Apr 24 2021, 7:12 AM
Vigneshbalu updated this revision to Diff 340707.Apr 26 2021, 7:01 PM

Resolving clang-tidy warnings

Harbormaster completed remote builds in B101066: Diff 340707.Apr 26 2021, 7:39 PM
Vigneshbalu updated this revision to Diff 353884.Jun 23 2021, 1:43 AM

Rebasing the patch.

Harbormaster completed remote builds in B110569: Diff 353884.Jun 23 2021, 2:43 AM
Vigneshbalu updated this revision to Diff 359698.Jul 19 2021, 1:20 AM

Rebasing the patch.

Harbormaster completed remote builds in B114793: Diff 359698.Jul 19 2021, 2:14 AM
Vigneshbalu added reviewers: protze.joachim, hbae, dreachem, RaviNarayanaswamy.Aug 10 2021, 2:12 AM
jini.susan added a subscriber: jini.susan.Sep 20 2021, 1:58 AM
dreachem added a comment.Jul 6 2022, 5:47 AM

Looks good to me.

Herald added a project: Restricted Project. · View Herald TranscriptJul 6 2022, 5:47 AM
jdoerfert accepted this revision.Aug 31 2022, 7:19 AM
In D100186#3632472, @dreachem wrote:

Looks good to me.

Deepak approved ^

This revision is now accepted and ready to land.Aug 31 2022, 7:19 AM
Vigneshbalu updated this revision to Diff 470440.Oct 25 2022, 4:13 AM

Rebasing

Harbormaster completed remote builds in B194142: Diff 470440.Oct 25 2022, 4:16 AM
Vigneshbalu added a comment.Nov 9 2022, 5:07 AM

@dreachem Gentle ping.

dreachem accepted this revision.Nov 9 2022, 7:35 AM

LG.

jolanta.jensen added a subscriber: jolanta.jensen.Jan 19 2023, 8:52 AM
jolanta.jensen added inline comments.Jan 19 2023, 8:59 AM
openmp/libompd/test/api_tests/test_ompd_device_initialize.c
12–14

These check lines do not catch OMPD module initialization failure, i.e. below output is regarded as correct one by the test:

GNU gdb (GDB) Red Hat Enterprise Linux 7.6.1-120.el7
Copyright (C) 2013 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.  Type "show copying"
and "show warranty" for details.
This GDB was configured as "aarch64-redhat-linux-gnu".
For bug reporting instructions, please see:
<http://www.gnu.org/software/gdb/bugs/>...
Reading symbols from openmp/libompd/test/api_tests/Output/test_ompd_device_initialize.c.tmp...done.
Traceback (most recent call last):
  File "openmp/libompd/test/../gdb-plugin/python-module/ompd/__init__.py", line 9, in <module>
    import ompd
  File "openmp/libompd/test/../gdb-plugin/python-module/ompd/ompd.py", line 1, in <module>
    import ompdModule
ImportError: dynamic module does not define init function (initompdModule)
('Error: OMPD support could not be loaded', ImportError('dynamic module does not define init function (initompdModule)',))
openmp/libompd/test/api_tests/test_ompd_device_initialize.c.cmd:1: Error in sourced command file:
Undefined command: "ompd".  Try "help".
(gdb) quit

Only two of the tests added in this patch will fail if the OMPD module fails initialization, the other ones will pass.

Revision Contents

PathSize
openmp/
libompd/
1 line
test/
41 lines
api_tests/
13 lines
3 lines
16 lines
4 lines
16 lines
4 lines
18 lines
4 lines
3 lines
14 lines
4 lines
16 lines
3 lines
4 lines
30 lines
4 lines
30 lines
4 lines
19 lines
4 lines
30 lines
5 lines
30 lines
4 lines
16 lines
4 lines
14 lines
4 lines
13 lines
2 lines
30 lines
4 lines
16 lines
4 lines
30 lines
4 lines
30 lines
4 lines
15 lines
4 lines
30 lines
4 lines
15 lines
4 lines
3 lines
14 lines
4 lines
14 lines
4 lines
16 lines
4 lines
14 lines
3 lines
13 lines
4 lines
19 lines
4 lines
14 lines
3 lines
14 lines
3 lines
30 lines
4 lines
14 lines
4 lines
30 lines
4 lines
14 lines
4 lines
30 lines
5 lines
14 lines
4 lines
83 lines
21 lines
200 lines
openmp_examples/
34 lines
39 lines
35 lines
39 lines
39 lines
39 lines
37 lines
51 lines
48 lines
10 lines
49 lines
14 lines
45 lines
14 lines
26 lines
3 lines

Diff 340273

openmp/libompd/CMakeLists.txt

# #
#//===----------------------------------------------------------------------===// #//===----------------------------------------------------------------------===//
#// #//
#// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. #// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
#// See https://llvm.org/LICENSE.txt for license information. #// See https://llvm.org/LICENSE.txt for license information.
#// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception #// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
#// #//
#//===----------------------------------------------------------------------===// #//===----------------------------------------------------------------------===//
# #
if(LIBOMP_OMPD_SUPPORT) if(LIBOMP_OMPD_SUPPORT)
set(OMPD_INCLUDE_PATH ${CMAKE_CURRENT_SOURCE_DIR}/src/) set(OMPD_INCLUDE_PATH ${CMAKE_CURRENT_SOURCE_DIR}/src/)
add_subdirectory(src) add_subdirectory(src)
add_subdirectory(gdb-plugin) add_subdirectory(gdb-plugin)
add_subdirectory(test)
endif() endif()

openmp/libompd/test/CMakeLists.txt

  • This file was added.
if(LIBOMP_OMPD_SUPPORT)
if(NOT OPENMP_TEST_COMPILER_ID STREQUAL "Clang")
message(STATUS "LIBOMPD: Can only test with Clang compiler")
message(WARNING "LIBOMPD: The check-libompd target will not be available!")
return()
endif()
find_package(LLVM REQUIRED CONFIG)
list(APPEND CMAKE_MODULE_PATH "${LLVM_CMAKE_DIR}")
include(AddLLVM)
find_program(LLVM_LIT_PATH
NAMES llvm-lit lit
HINTS ${LLVM_TOOLS_BINARY_DIR}
PATHS ${LLVM_ROOT_DIR}/bin /usr/bin /usr/local/bin /opt/local/bin
DOC "llvm-lit executable. (Workaround for AddLLVM.cmake path not being set)"
)
if(LLVM_LIT_PATH)
set(LLVM_EXTERNAL_LIT ${LLVM_LIT_PATH})
endif()
find_program(FILECHECK_EXECUTABLE
NAMES Filecheck FileCheck
HINTS ${LLVM_TOOLS_BINARY_DIR}
PATHS ${LLVM_ROOT_DIR}/bin /usr/bin /usr/local/bin /opt/local/bin
DOC "Filecheck executable. (Workaround for AddLLVM.cmake path not being set)"
)
if(LLVM_FILECHECK_PATH)
set(LLVM_EXTERNAL_FILECHECK ${LLVM_FILECHECK_PATH})
endif()
set(PYTHON_PLUGIN ${ompd_BINARY_DIR}/gdb-plugin/python-module)
# Configure the lit.site.cfg.in file
set(AUTO_GEN_COMMENT "## Autogenerated by libomp configuration.\n# Do not edit!")
configure_file(lit.site.cfg.in lit.site.cfg @ONLY)
add_openmp_testsuite(check-ompd "Running OMPD tests"
${CMAKE_CURRENT_BINARY_DIR}
DEPENDS omp ompd ompd_gdb_plugin)
endif()

openmp/libompd/test/api_tests/test_ompd_device_initialize.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_device_initialize.c.cmd

  • This file was added.
ompd init
b test_ompd_device_initialize.c:9
ompdtestapi ompd_device_initialize

openmp/libompd/test/api_tests/test_ompd_enumerate_icvs.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(2);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_enumerate_icvs.c.cmd

  • This file was added.
ompd init
b test_ompd_enumerate_icvs.c:11
c
ompdtestapi ompd_enumerate_icvs

openmp/libompd/test/api_tests/test_ompd_enumerate_states.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(2);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_enumerate_states.c.cmd

  • This file was added.
ompd init
b test_ompd_enumerate_states.c:11
c
ompdtestapi ompd_enumerate_states

openmp/libompd/test/api_tests/test_ompd_finalize.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
// RUN: %gdb-test -x %s.cmd2 %t 2>&1 | tee %t.out2 \
// RUN: | FileCheck --check-prefix CMD2 %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip
// CMD2: Run 'ompd init' before running any of the ompd commands
// CMD2: Error in Initialization

openmp/libompd/test/api_tests/test_ompd_finalize.c.cmd

  • This file was added.
ompd init
b test_ompd_finalize.c:11
c
ompdtestapi ompd_finalize

openmp/libompd/test/api_tests/test_ompd_finalize.c.cmd2

  • This file was added.
b main
r
ompdtestapi ompd_finalize

openmp/libompd/test/api_tests/test_ompd_get_api_version.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_api_version.c.cmd

  • This file was added.
ompd init
b test_ompd_get_api_version.c:10
c
ompdtestapi ompd_get_api_version

openmp/libompd/test/api_tests/test_ompd_get_curr_parallel_handle.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out \
// RUN: | FileCheck -check-prefix=CMD %s
// RUN: %gdb-test -x %s.cmd2 %t 2>&1 | tee %t.out2 | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(2);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CMD: Return code is stale_handle
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_curr_parallel_handle.c.cmd

  • This file was added.
ompd init
b test_ompd_get_curr_parallel_handle.c:11
ompdtestapi ompd_get_curr_parallel_handle

openmp/libompd/test/api_tests/test_ompd_get_curr_parallel_handle.c.cmd2

  • This file was added.
ompd init
b test_ompd_get_curr_parallel_handle.c:11
c
ompdtestapi ompd_get_curr_parallel_handle

openmp/libompd/test/api_tests/test_ompd_get_curr_task_handle.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int get_fib_num(int num) {
int t1, t2;
if (num < 2)
return num;
else {
#pragma omp task shared(t1)
t1 = get_fib_num(num - 1);
#pragma omp task shared(t2)
t2 = get_fib_num(num - 2);
#pragma omp taskwait
return t1 + t2;
}
}
int main() {
int ret = 0;
omp_set_num_threads(2);
#pragma omp parallel
{ ret = get_fib_num(10); }
printf("Fib of 10 is %d", ret);
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_curr_task_handle.c.cmd

  • This file was added.
ompd init
b test_ompd_get_curr_task_handle.c:14
c
ompdtestapi ompd_get_curr_task_handle

openmp/libompd/test/api_tests/test_ompd_get_display_control_vars.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int get_fib_num(int num) {
int t1, t2;
if (num < 2)
return num;
else {
#pragma omp task shared(t1)
t1 = get_fib_num(num - 1);
#pragma omp task shared(t2)
t2 = get_fib_num(num - 2);
#pragma omp taskwait
return t1 + t2;
}
}
int main() {
int ret = 0;
omp_set_num_threads(2);
#pragma omp parallel
{ ret = get_fib_num(10); }
printf("Fib of 10 is %d", ret);
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_display_control_vars.c.cmd

  • This file was added.
ompd init
b test_ompd_get_display_control_vars.c:14
c
ompdtestapi ompd_get_display_control_vars

openmp/libompd/test/api_tests/test_ompd_get_enclosing_parallel_handle.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{
printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num());
omp_set_num_threads(3);
#pragma omp parallel
{ printf("Parallel level 2, thread num = %d", omp_get_thread_num()); }
}
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_enclosing_parallel_handle.c.cmd

  • This file was added.
ompd init
b test_ompd_get_enclosing_parallel_handle.c:14
c
ompdtestapi ompd_get_enclosing_parallel_handle

openmp/libompd/test/api_tests/test_ompd_get_generating_task_handle.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int get_fib_num(int num) {
int t1, t2;
if (num < 2)
return num;
else {
#pragma omp task shared(t1)
t1 = get_fib_num(num - 1);
#pragma omp task shared(t2)
t2 = get_fib_num(num - 2);
#pragma omp taskwait
return t1 + t2;
}
}
int main() {
int ret = 0;
omp_set_num_threads(2);
#pragma omp parallel
{ ret = get_fib_num(10); }
printf("Fib of 10 is %d", ret);
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_generating_task_handle.c.cmd

  • This file was added.
ompd init
b test_ompd_get_generating_task_handle.c:14
c
c
ompdtestapi ompd_get_generating_task_handle

openmp/libompd/test/api_tests/test_ompd_get_icv_from_scope.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int get_fib_num(int num) {
int t1, t2;
if (num < 2)
return num;
else {
#pragma omp task shared(t1)
t1 = get_fib_num(num - 1);
#pragma omp task shared(t2)
t2 = get_fib_num(num - 2);
#pragma omp taskwait
return t1 + t2;
}
}
int main() {
int ret = 0;
omp_set_num_threads(2);
#pragma omp parallel
{ ret = get_fib_num(10); }
printf("Fib of 10 is %d", ret);
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_icv_from_scope.c.cmd

  • This file was added.
ompd init
b test_ompd_get_icv_from_scope.c:14
c
ompdtestapi ompd_get_icv_from_scope

openmp/libompd/test/api_tests/test_ompd_get_icv_string_from_scope.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(2);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_icv_string_from_scope.c.cmd

  • This file was added.
ompd init
b test_ompd_get_icv_string_from_scope.c:11
c
ompdtestapi ompd_get_icv_string_from_scope

openmp/libompd/test/api_tests/test_ompd_get_omp_version.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_omp_version.c.cmd

  • This file was added.
ompd init
b test_ompd_get_omp_version.c:10
c
ompdtestapi ompd_get_omp_version

openmp/libompd/test/api_tests/test_ompd_get_omp_version_string.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_omp_version_string.c.cmd

  • This file was added.
ompd init
ompdtestapi ompd_get_omp_version_string

openmp/libompd/test/api_tests/test_ompd_get_scheduling_task_handle.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int get_fib_num(int num) {
int t1, t2;
if (num < 2)
return num;
else {
#pragma omp task shared(t1)
t1 = get_fib_num(num - 1);
#pragma omp task shared(t2)
t2 = get_fib_num(num - 2);
#pragma omp taskwait
return t1 + t2;
}
}
int main() {
int ret = 0;
omp_set_num_threads(2);
#pragma omp parallel
{ ret = get_fib_num(10); }
printf("Fib of 10 is %d", ret);
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_scheduling_task_handle.c.cmd

  • This file was added.
ompd init
b test_ompd_get_scheduling_task_handle.c:14
c
ompdtestapi ompd_get_scheduling_task_handle

openmp/libompd/test/api_tests/test_ompd_get_state.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(2);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_state.c.cmd

  • This file was added.
ompd init
b test_ompd_get_state.c:11
c
ompdtestapi ompd_get_state

openmp/libompd/test/api_tests/test_ompd_get_task_frame.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int get_fib_num(int num) {
int t1, t2;
if (num < 2)
return num;
else {
#pragma omp task shared(t1)
t1 = get_fib_num(num - 1);
#pragma omp task shared(t2)
t2 = get_fib_num(num - 2);
#pragma omp taskwait
return t1 + t2;
}
}
int main() {
int ret = 0;
omp_set_num_threads(2);
#pragma omp parallel
{ ret = get_fib_num(10); }
printf("Fib of 10 is %d", ret);
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_task_frame.c.cmd

  • This file was added.
ompd init
b test_ompd_get_task_frame.c:14
c
ompdtestapi ompd_get_task_frame

openmp/libompd/test/api_tests/test_ompd_get_task_function.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int get_fib_num(int num) {
int t1, t2;
if (num < 2)
return num;
else {
#pragma omp task shared(t1)
t1 = get_fib_num(num - 1);
#pragma omp task shared(t2)
t2 = get_fib_num(num - 2);
#pragma omp taskwait
return t1 + t2;
}
}
int main() {
int ret = 0;
omp_set_num_threads(2);
#pragma omp parallel
{ ret = get_fib_num(10); }
printf("Fib of 10 is %d", ret);
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_task_function.c.cmd

  • This file was added.
ompd init
b test_ompd_get_task_function.c:14
c
ompdtestapi ompd_get_task_function

openmp/libompd/test/api_tests/test_ompd_get_task_in_parallel.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(2);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_task_in_parallel.c.cmd

  • This file was added.
ompd init
b test_ompd_get_task_in_parallel.c:10
c
ompdtestapi ompd_get_task_in_parallel

openmp/libompd/test/api_tests/test_ompd_get_task_parallel_handle.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int get_fib_num(int num) {
int t1, t2;
if (num < 2)
return num;
else {
#pragma omp task shared(t1)
t1 = get_fib_num(num - 1);
#pragma omp task shared(t2)
t2 = get_fib_num(num - 2);
#pragma omp taskwait
return t1 + t2;
}
}
int main() {
int ret = 0;
omp_set_num_threads(2);
#pragma omp parallel
{ ret = get_fib_num(10); }
printf("Fib of 10 is %d", ret);
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_task_parallel_handle.c.cmd

  • This file was added.
ompd init
b test_ompd_get_task_parallel_handle.c:14
c
ompdtestapi ompd_get_task_parallel_handle

openmp/libompd/test/api_tests/test_ompd_get_thread_handle.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
// RUN: %gdb-test -x %s.cmd2 %t 2>&1 | tee %t.out2 | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(2);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_thread_handle.c.cmd

  • This file was added.
ompd init
b test_ompd_get_thread_handle.c:11
c
ompdtestapi ompd_get_thread_handle

openmp/libompd/test/api_tests/test_ompd_get_thread_handle.c.cmd2

  • This file was added.
ompd init
b test_ompd_get_thread_handle.c:11
ompdtestapi ompd_get_thread_handle

openmp/libompd/test/api_tests/test_ompd_get_thread_id.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_thread_id.c.cmd

  • This file was added.
ompd init
b test_ompd_get_thread_id.c:10
c
ompdtestapi ompd_get_thread_id

openmp/libompd/test/api_tests/test_ompd_get_thread_in_parallel.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_thread_in_parallel.c.cmd

  • This file was added.
ompd init
b test_ompd_get_thread_in_parallel.c:10
c
ompdtestapi ompd_get_thread_in_parallel

openmp/libompd/test/api_tests/test_ompd_get_tool_data.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(2);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_tool_data.c.cmd

  • This file was added.
ompd init
b test_ompd_get_tool_data.c:11
c
ompdtestapi ompd_get_tool_data

openmp/libompd/test/api_tests/test_ompd_get_version_string.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_get_version_string.c.cmd

  • This file was added.
ompd init
b test_ompd_get_version_string.c:10
ompdtestapi ompd_get_version_string

openmp/libompd/test/api_tests/test_ompd_initialize.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_initialize.c.cmd

  • This file was added.
ompd init
b 7
ompdtestapi ompd_initialize

openmp/libompd/test/api_tests/test_ompd_parallel_handle_compare.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{
printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num());
omp_set_num_threads(3);
#pragma omp parallel
{ printf("Parallel level 2, thread num = %d", omp_get_thread_num()); }
}
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_parallel_handle_compare.c.cmd

  • This file was added.
ompd init
b test_ompd_parallel_handle_compare.c:14
c
ompdtestapi ompd_parallel_handle_compare

openmp/libompd/test/api_tests/test_ompd_process_initialize.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_process_initialize.c.cmd

  • This file was added.
ompd init
b test_ompd_process_initialize.c:10
ompdtestapi ompd_process_initialize

openmp/libompd/test/api_tests/test_ompd_rel_address_space_handle.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_rel_address_space_handle.c.cmd

  • This file was added.
ompd init
b test_ompd_rel_address_space_handle.c:10
ompdtestapi ompd_rel_address_space_handle

openmp/libompd/test/api_tests/test_ompd_rel_display_control_vars.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int get_fib_num(int num) {
int t1, t2;
if (num < 2)
return num;
else {
#pragma omp task shared(t1)
t1 = get_fib_num(num - 1);
#pragma omp task shared(t2)
t2 = get_fib_num(num - 2);
#pragma omp taskwait
return t1 + t2;
}
}
int main() {
int ret = 0;
omp_set_num_threads(2);
#pragma omp parallel
{ ret = get_fib_num(10); }
printf("Fib of 10 is %d", ret);
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_rel_display_control_vars.c.cmd

  • This file was added.
ompd init
b test_ompd_rel_display_control_vars.c:14
c
ompdtestapi ompd_rel_display_control_vars

openmp/libompd/test/api_tests/test_ompd_rel_parallel_handle.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_rel_parallel_handle.c.cmd

  • This file was added.
ompd init
b test_ompd_rel_parallel_handle.c:10
c
ompdtestapi ompd_rel_parallel_handle

openmp/libompd/test/api_tests/test_ompd_rel_task_handle.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int get_fib_num(int num) {
int t1, t2;
if (num < 2)
return num;
else {
#pragma omp task shared(t1)
t1 = get_fib_num(num - 1);
#pragma omp task shared(t2)
t2 = get_fib_num(num - 2);
#pragma omp taskwait
return t1 + t2;
}
}
int main() {
int ret = 0;
omp_set_num_threads(2);
#pragma omp parallel
{ ret = get_fib_num(10); }
printf("Fib of 10 is %d", ret);
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_rel_task_handle.c.cmd

  • This file was added.
ompd init
b test_ompd_rel_task_handle.c:14
c
ompdtestapi ompd_rel_task_handle

openmp/libompd/test/api_tests/test_ompd_rel_thread_handle.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(4);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_rel_thread_handle.c.cmd

  • This file was added.
ompd init
b test_ompd_rel_thread_handle.c:10
c
ompdtestapi ompd_rel_thread_handle

openmp/libompd/test/api_tests/test_ompd_task_handle_compare.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int get_fib_num(int num) {
int t1, t2;
if (num < 2)
return num;
else {
#pragma omp task shared(t1)
t1 = get_fib_num(num - 1);
#pragma omp task shared(t2)
t2 = get_fib_num(num - 2);
#pragma omp taskwait
return t1 + t2;
}
}
int main() {
int ret = 0;
omp_set_num_threads(2);
#pragma omp parallel
{ ret = get_fib_num(10); }
printf("Fib of 10 is %d", ret);
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_task_handle_compare.c.cmd

  • This file was added.
ompd init
b test_ompd_task_handle_compare.c:14
c
c
ompdtestapi ompd_task_handle_compare

openmp/libompd/test/api_tests/test_ompd_thread_handle_compare.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %s.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_num_threads(3);
#pragma omp parallel
{ printf("Parallel level 1, thread num = %d.\n", omp_get_thread_num()); }
return 0;
}
// CHECK-NOT: Failed
// CHECK-NOT: Skip

openmp/libompd/test/api_tests/test_ompd_thread_handle_compare.c.cmd

  • This file was added.
ompd init
b test_ompd_thread_handle_compare.c:10
c
ompdtestapi ompd_thread_handle_compare

openmp/libompd/test/lit.cfg

  • This file was added.
# -*- Python -*- vim: set ft=python ts=4 sw=4 expandtab tw=79:
# Configuration file for the 'lit' test runner.
import os
import re
import subprocess
import lit.formats
# Tell pylint that we know config and lit_config exist somewhere.
if 'PYLINT_IMPORT' in os.environ:
config = object()
lit_config = object()
def append_dynamic_library_path(path):
if config.operating_system == 'Windows':
name = 'PATH'
sep = ';'
elif config.operating_system == 'Darwin':
name = 'DYLD_LIBRARY_PATH'
sep = ':'
else:
name = 'LD_LIBRARY_PATH'
sep = ':'
if name in config.environment:
config.environment[name] = path + sep + config.environment[name]
else:
config.environment[name] = path
# config.environment['PYTHONPATH'] = config.ompd_module + sep + config.environment['PYTHON_PATH']
# name: The name of this test suite.
config.name = 'ompd-test'
# suffixes: A list of file extensions to treat as test files.
config.suffixes = ['.c']
# test_source_root: The root path where tests are located.
#config.test_source_root = os.path.dirname(__file__)
config.test_source_root = config.ompd_test_src
# test_exec_root: The root object directory where output is placed
config.test_exec_root = config.ompd_obj_root
# test format
config.test_format = lit.formats.ShTest()
# compiler flags
config.test_flags = " -I " + config.test_source_root + " -I " + config.ompt_include_dir + \
" " + config.test_extra_flags + " -L " + config.library_dir
append_dynamic_library_path(config.library_dir)
append_dynamic_library_path(config.ompd_library_dir)
# Disable OMPT tests if FileCheck was not found
if config.test_filecheck == "":
lit_config.note("Not testing OMPT_OMPD because FileCheck was not found")
if 'Linux' in config.operating_system:
config.available_features.add("linux")
# to run with icc INTEL_LICENSE_FILE must be set
if 'INTEL_LICENSE_FILE' in os.environ:
config.environment['INTEL_LICENSE_FILE'] = os.environ['INTEL_LICENSE_FILE']
if 'OMP_NUM_THREADS' in os.environ:
config.environment['OMP_NUM_THREADS'] = os.environ['OMP_NUM_THREADS']
#config.environment['ompd'] = "/home/gu620893/LLVM-openmp-master/install/"
config.substitutions.append(("%gdb-compile-and-run", "%gdb-compile && %gdb-run"))
config.substitutions.append(("%gdb-compile",
"%test_c_compiler -fopenmp -g %s -o %t " + config.test_flags))
config.substitutions.append(("%test_c_compiler", config.test_c_compiler))
config.substitutions.append(("%gdb-run",
"env OMP_DEBUG=enabled gdb -x " + config.ompd_obj_root + "/../gdb-plugin/python-module/ompd/__init__.py -x " \
+ config.ompd_test_src + "/test.cmd %t "))
config.substitutions.append(("%gdb-test",
"env OMP_DEBUG=enabled gdb -x " + config.ompd_obj_root + "/../gdb-plugin/python-module/ompd/__init__.py "))
config.substitutions.append(("%ompt-tool",
config.ompt_plugin))
config.substitutions.append(("FileCheck", config.test_filecheck))

openmp/libompd/test/lit.site.cfg.in

  • This file was added.
@AUTO_GEN_COMMENT@
config.test_c_compiler = "@OPENMP_TEST_C_COMPILER@"
config.test_compiler_features = @OPENMP_TEST_COMPILER_FEATURES@
config.test_filecheck = "@OPENMP_FILECHECK_EXECUTABLE@"
config.test_not = "@OPENMP_NOT_EXECUTABLE@"
config.test_openmp_flags = "@OPENMP_TEST_OPENMP_FLAGS@"
config.test_extra_flags = "@OPENMP_TEST_FLAGS@"
config.ompd_obj_root = "@CMAKE_CURRENT_BINARY_DIR@"
config.ompd_test_src = "@CMAKE_CURRENT_SOURCE_DIR@"
config.library_dir = "@LIBOMP_LIBRARY_DIR@"
config.ompd_library_dir = "@CMAKE_CURRENT_BINARY_DIR@/../src/"
config.omp_header_directory = "@LIBOMP_BINARY_DIR@/src"
config.operating_system = "@CMAKE_SYSTEM_NAME@"
config.ompt_plugin = "@OMPT_PLUGIN@"
config.ompt_include_dir = "@LIBOMP_INCLUDE_DIR@"
config.ompd_module = "@CMAKE_CURRENT_BINARY_DIR@/../gdb-plugin/python-module/ompd/"
# Let the main config do the real work.
lit_config.load_config(config, "@CMAKE_CURRENT_SOURCE_DIR@/lit.cfg")

openmp/libompd/test/ompt_plugin.h

  • This file was added.
#include <dlfcn.h>
#include <omp-tools.h>
#include <omp.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <unistd.h>
typedef struct omp_t_data {
// Thread data
ompt_state_t ompt_state;
ompt_wait_id_t ompt_wait_id;
int omp_thread_num;
ompt_data_t *ompt_thread_data;
// Parallel data
int omp_num_threads;
int omp_level;
int omp_active_level;
ompt_data_t *ompt_parallel_data;
// Task data
int omp_max_threads;
int omp_parallel;
int omp_final;
int omp_dynamic;
int omp_nested;
int omp_max_active_levels;
omp_sched_t omp_kind;
int omp_modifier;
omp_proc_bind_t omp_proc_bind;
ompt_frame_t *ompt_frame_list;
ompt_data_t *ompt_task_data;
} omp_t_data_t;
static __thread omp_t_data_t thread_data;
static ompt_function_lookup_t ompt_lookup;
// NOLINTNEXTLINE "Used in Macro:register_callback_t below."
static ompt_set_callback_t ompt_set_callback;
static ompt_get_callback_t ompt_get_callback;
static ompt_get_state_t ompt_get_state;
static ompt_get_task_info_t ompt_get_task_info;
static ompt_get_thread_data_t ompt_get_thread_data;
static ompt_get_parallel_info_t ompt_get_parallel_info;
static ompt_get_unique_id_t ompt_get_unique_id;
static ompt_get_num_procs_t ompt_get_num_procs;
static ompt_get_num_places_t ompt_get_num_places;
static ompt_get_place_proc_ids_t ompt_get_place_proc_ids;
static ompt_get_place_num_t ompt_get_place_num;
static ompt_get_partition_place_nums_t ompt_get_partition_place_nums;
static ompt_get_proc_id_t ompt_get_proc_id;
static ompt_enumerate_states_t ompt_enumerate_states;
static ompt_enumerate_mutex_impls_t ompt_enumerate_mutex_impls;
static int checks = 0;
static void on_ompt_callback_implicit_task(ompt_scope_endpoint_t endpoint,
ompt_data_t *parallel_data,
ompt_data_t *task_data,
unsigned int team_size,
unsigned int thread_num, int flags) {
if (endpoint == ompt_scope_begin)
task_data->value = ompt_get_unique_id();
}
static void on_ompt_callback_thread_begin(ompt_thread_t thread_type,
ompt_data_t *t_data) {
t_data->value = ompt_get_unique_id();
}
static void on_ompt_callback_parallel_begin(
ompt_data_t *encountering_task_data,
const ompt_frame_t *encountering_task_frame, ompt_data_t *parallel_data,
uint32_t requested_team_size, int flag, const void *codeptr_ra) {
parallel_data->value = ompt_get_unique_id();
}
#define register_callback_t(name, type) \
do { \
type f_##name = &on_##name; \
if (ompt_set_callback(name, (ompt_callback_t)f_##name) == ompt_set_never) \
printf("0: Could not register callback '" #name "'\n"); \
} while (0)
#define register_callback(name) register_callback_t(name, name##_t)
static int ompt_initialize(ompt_function_lookup_t lookup,
int initial_device_num, ompt_data_t *tool_data) {
ompt_lookup = lookup;
// TODO: remove: printf("runtime_version: %s, omp_version: %i\n",
// runtime_version, omp_version);
// TODO: remove macro
// #define declare_inquery_fn(F) F = (F##_t)lookup(#F);
// FOREACH_OMPT_INQUIRY_FN(declare_inquery_fn)
// #undef declare_inquery_fn
ompt_set_callback_t ompt_set_callback =
(ompt_set_callback_t)lookup("ompt_set_callback");
ompt_get_callback = (ompt_get_callback_t)lookup("ompt_get_callback");
ompt_get_state = (ompt_get_state_t)lookup("ompt_get_state");
ompt_get_task_info = (ompt_get_task_info_t)lookup("ompt_get_task_info");
ompt_get_thread_data = (ompt_get_thread_data_t)lookup("ompt_get_thread_data");
ompt_get_parallel_info =
(ompt_get_parallel_info_t)lookup("ompt_get_parallel_info");
ompt_get_unique_id = (ompt_get_unique_id_t)lookup("ompt_get_unique_id");
ompt_get_num_procs = (ompt_get_num_procs_t)lookup("ompt_get_num_procs");
ompt_get_num_places = (ompt_get_num_places_t)lookup("ompt_get_num_places");
ompt_get_place_proc_ids =
(ompt_get_place_proc_ids_t)lookup("ompt_get_place_proc_ids");
ompt_get_place_num = (ompt_get_place_num_t)lookup("ompt_get_place_num");
ompt_get_partition_place_nums =
(ompt_get_partition_place_nums_t)lookup("ompt_get_partition_place_nums");
ompt_get_proc_id = (ompt_get_proc_id_t)lookup("ompt_get_proc_id");
ompt_enumerate_states =
(ompt_enumerate_states_t)lookup("ompt_enumerate_states");
ompt_enumerate_mutex_impls =
(ompt_enumerate_mutex_impls_t)lookup("ompt_enumerate_mutex_impls");
register_callback(ompt_callback_implicit_task);
register_callback(ompt_callback_thread_begin);
register_callback(ompt_callback_parallel_begin);
return 1; // activate tool
}
static void ompt_finalize(ompt_data_t *tool_data) {}
// "This func will be invoked by OpenMP implementation, refer spec: 4.2.1"
// NOLINTNEXTLINE
static ompt_start_tool_result_t *ompt_start_tool(unsigned int omp_version,
const char *runtime_version) {
static ompt_start_tool_result_t ompt_start_tool_result = {
&ompt_initialize, &ompt_finalize, {0}};
return &ompt_start_tool_result;
}
static void collectParallelData(omp_t_data_t *data) {
data->omp_num_threads = omp_get_num_threads();
data->omp_level = omp_get_level();
data->omp_active_level = omp_get_active_level();
ompt_get_parallel_info(0, &(data->ompt_parallel_data), NULL);
}
static void collectTaskData(omp_t_data_t *data) {
data->omp_max_threads = omp_get_max_threads();
data->omp_parallel = omp_in_parallel();
data->omp_final = omp_in_final();
data->omp_dynamic = omp_get_dynamic();
data->omp_nested = omp_get_max_active_levels() > 1;
data->omp_max_active_levels = omp_get_max_active_levels();
omp_get_schedule(&(data->omp_kind), &(data->omp_modifier));
data->omp_proc_bind = omp_get_proc_bind();
ompt_get_task_info(0, NULL, &(data->ompt_task_data), &(data->ompt_frame_list),
NULL, NULL);
}
static void collectThreadData(omp_t_data_t *data) {
data->omp_thread_num = omp_get_thread_num();
data->ompt_state = ompt_get_state(&(data->ompt_wait_id));
Lint: Pre-merge checks
Inline Actions

clang-tidy: error: assigning to 'ompt_state_t' from incompatible type 'int' [clang-diagnostic-error]
not useful

Lint: Pre-merge checks: clang-tidy: error: assigning to 'ompt_state_t' from incompatible type 'int' [clang-diagnostic…
data->ompt_thread_data = ompt_get_thread_data();
}
#ifdef __cplusplus
extern "C" {
#endif
__attribute__((noinline)) static void *breakToolTest(omp_t_data_t *data) {
return data;
}
#ifdef __cplusplus
}
#endif
#ifdef __cplusplus
extern "C" {
#endif
static void *ompd_tool_break(void *n) {
(void)n;
asm("");
return NULL;
}
#ifdef __cplusplus
}
#endif
// NOLINTNEXTLINE "This func will be invoked in testcases."
static void *ompd_tool_test(void *n) {
collectThreadData(&thread_data);
collectParallelData(&thread_data);
collectTaskData(&thread_data);
breakToolTest(&thread_data);
checks++;
ompd_tool_break(NULL);
return NULL;
}
__attribute__((__constructor__)) static void init(void) {}
__attribute__((__destructor__)) static void fini(void) {
printf("Finished %i testsuites.\n", checks);
}

openmp/libompd/test/openmp_examples/example_1.c

  • This file was added.
// RUN: %gdb-compile-and-run 2>&1 | tee %t.out | FileCheck %s
#include "../ompt_plugin.h"
#include <omp.h>
#include <pthread.h>
#include <stdio.h>
#include <unistd.h>
void createPthreads() {
int numThreads = 2;
pthread_t threads[numThreads];
int i;
for (i = 0; i < numThreads; ++i)
pthread_create(&threads[i], NULL, ompd_tool_break, NULL);
for (i = 0; i < numThreads; ++i)
pthread_join(threads[i], NULL);
}
int main() {
omp_set_num_threads(4);
printf("Application: Process %d started.\n", getpid());
createPthreads(); // thread_data is set to 0x0 if called
// Parallel region 1
#pragma omp parallel
{ ompd_tool_test(0); }
return 0;
}
// CHECK-NOT: OMPT-OMPD mismatch
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.

openmp/libompd/test/openmp_examples/example_2.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: env OMP_SCHEDULE=static,5 %gdb-run 2>&1 | tee %t.out | FileCheck %s
#include "../ompt_plugin.h"
#include <omp.h>
#include <pthread.h>
#include <stdio.h>
#include <unistd.h>
int main() {
printf("Application: Process %d started.\n", getpid());
omp_set_num_threads(3);
omp_set_max_active_levels(10);
#pragma omp parallel // parallel region begins
{
printf("Outer region - thread_ID: %d\n", omp_get_thread_num());
#pragma omp parallel num_threads(2) // nested parallel region 1
{
printf("Inner region - thread_ID: %d\n", omp_get_thread_num());
#pragma omp parallel num_threads(2) // nested parallel region 2
{
int i;
#pragma omp for
for (i = 0; i < 10; i++)
ompd_tool_test(0);
}
}
}
return 0;
}
// CHECK-NOT: OMPT-OMPD mismatch
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.

openmp/libompd/test/openmp_examples/example_3.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: env OMP_SCHEDULE=static %gdb-run 2>&1 | tee %t.out | FileCheck %s
#include "../ompt_plugin.h"
#include <omp.h>
#include <stdio.h>
#include <unistd.h>
void bar() {
int i;
#pragma omp parallel for num_threads(2)
for (i = 0; i < 10; i++)
ompd_tool_test(0);
}
void foo() {
omp_set_max_active_levels(10);
#pragma omp parallel num_threads(2)
{
if (omp_get_thread_num() == 0)
ompd_tool_test(0);
else
bar();
}
}
int main() {
printf("Process %d started.\n", getpid());
foo();
return 0;
}
// CHECK-NOT: OMPT-OMPD mismatch
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.

openmp/libompd/test/openmp_examples/example_4.c

  • This file was added.
// RUN: %gdb-compile-and-run 2>&1 | tee %t.out | FileCheck %s
#include "../ompt_plugin.h"
#include <omp.h>
#include <pthread.h>
#include <stdio.h>
#include <unistd.h>
int main() {
printf("Application: Process %d started.\n", getpid());
omp_set_num_threads(3);
omp_set_max_active_levels(10);
#pragma omp parallel // parallel region begins
{
printf("Outer region - thread_ID: %d\n", omp_get_thread_num());
#pragma omp parallel num_threads(2) // nested parallel region 1
{
printf("Inner region - thread_ID: %d\n", omp_get_thread_num());
#pragma omp parallel num_threads(2) // nested parallel region 2
{
int i;
#pragma omp for
for (i = 0; i < 4; i++)
printf("Thread %i of %i working on %i\n", omp_get_thread_num(),
omp_get_max_threads(), i);
ompd_tool_test(0);
}
}
}
return 0;
}
// CHECK-NOT: OMPT-OMPD mismatch
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.

openmp/libompd/test/openmp_examples/example_5.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: env OMP_SCHEDULE=guided %gdb-run 2>&1 | tee %t.out | FileCheck %s
#include "../ompt_plugin.h"
#include <omp.h>
#include <pthread.h>
#include <stdio.h>
#include <unistd.h>
int main() {
printf("Application: Process %d started.\n", getpid());
omp_set_num_threads(3);
omp_set_max_active_levels(10);
#pragma omp parallel // parallel region begins
{
printf("Outer region - thread_ID: %d\n", omp_get_thread_num());
#pragma omp parallel num_threads(1) // nested parallel region 1
{
printf("Inner region - thread_ID: %d\n", omp_get_thread_num());
#pragma omp parallel num_threads(2) // nested parallel region 2
{
int i;
#pragma omp for
for (i = 0; i < 15; i++)
ompd_tool_test(0);
}
}
}
return 0;
}
// CHECK-NOT: OMPT-OMPD mismatch
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.

openmp/libompd/test/openmp_examples/example_task.c

  • This file was added.
// RUN: %gdb-compile-and-run 2>&1 | tee %t.out | FileCheck %s
#include "../ompt_plugin.h"
#include <omp.h>
#include <pthread.h>
#include <stdio.h>
#include <unistd.h>
void f(int i) {
if (i <= 0) {
ompd_tool_test(0);
} else {
printf("f(%i) start task 1\n", i);
#pragma omp task
f(i - 1);
printf("f(%i) start task 2\n", i);
#pragma omp task
f(i - 1);
printf("f(%i) start task 3\n", i);
#pragma omp task
f(i - 1);
#pragma omp taskwait
}
}
int main() {
printf("Application: Process %d started.\n", getpid());
omp_set_num_threads(8);
omp_set_max_active_levels(10);
#pragma omp parallel sections
{ f(4); }
return 0;
}
// CHECK-NOT: OMPT-OMPD mismatch
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.

openmp/libompd/test/openmp_examples/fibonacci.c

  • This file was added.
// RUN: %gdb-compile-and-run 2>&1 | tee %t.out | FileCheck %s
#include "../ompt_plugin.h"
#include <omp.h>
#include <stdio.h>
#include <stdlib.h>
int fib(int n) {
int i, j;
if (n < 2) {
ompd_tool_test(0);
return n;
} else {
#pragma omp task shared(i)
i = fib(n - 1);
#pragma omp task shared(j)
j = fib(n - 2);
#pragma omp taskwait
return i + j;
}
}
int main(int argc, char **argv) {
int n = 5;
if (argc > 1)
n = atoi(argv[1]);
#pragma omp parallel
{
#pragma omp single
printf("fib(%i) = %i\n", n, fib(n));
}
return 0;
}
// CHECK-NOT: OMPT-OMPD mismatch
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.

openmp/libompd/test/openmp_examples/nested.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: env OMP_SCHEDULE=guided,10 %gdb-run 2>&1 | tee %t.out | FileCheck %s
#include "../ompt_plugin.h"
#include <omp.h>
#include <stdio.h>
#include <unistd.h>
int main() {
printf("Application: Process %d started.\n", getpid());
int i;
omp_set_num_threads(3);
omp_set_max_active_levels(10);
#pragma omp parallel // parallel region begins
{
printf("outer parallel region Thread ID == %d\n", omp_get_thread_num());
/* Code for work to be done by outer parallel region threads over here. */
if (omp_get_thread_num() == 2)
sleep(1);
#pragma omp parallel num_threads(2) // nested parallel region
{
/* Code for work to be done by inner parallel region threads over here. */
printf("inner parallel region thread id %d\n", omp_get_thread_num());
// if (omp_get_thread_num() == 1) sleep(1000);
#pragma omp parallel num_threads(2) //
{
#pragma omp for
for (i = 0; i < 20; i++) {
// Some independent iterative computation to be done.
printf("");
ompd_tool_test(0);
}
}
}
}
// sleep(1000);
return 0;
}
// CHECK-NOT: OMPT-OMPD mismatch
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.

openmp/libompd/test/openmp_examples/ompd_bt.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %S/ompd_bt.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
void subdomain(float *x, int istart, int ipoints) {
int i;
for (i = 0; i < ipoints; i++)
x[istart + i] = 123.456;
}
void sub(float *x, int npoints) {
int iam, nt, ipoints, istart;
#pragma omp parallel default(shared) private(iam, nt, ipoints, istart)
{
iam = omp_get_thread_num();
nt = omp_get_num_threads();
ipoints = npoints / nt; /* size of partition */
istart = iam * ipoints; /* starting array index */
if (iam == nt - 1) /* last thread may do more */
ipoints = npoints - istart;
subdomain(x, istart, ipoints);
}
}
int main() {
omp_set_num_threads(5);
float array[10000];
sub(array, 10000);
return 0;
}
// CHECK: Loaded OMPD lib successfully!
// CHECK: Enabled filter for "bt" output successfully.
// CHECK-NOT: {{__kmp.*}}
// CHECK: Disabled filter for "bt" output successfully
// CHECK: {{__kmp.*}}
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.
// CHECK-NOT: No such file or directory

openmp/libompd/test/openmp_examples/ompd_bt.cmd

  • This file was added.
ompd init
b ompd_bt.c:9
c
ompd bt on
bt
c
ompd bt off
bt
d 3
c

openmp/libompd/test/openmp_examples/ompd_icvs.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: env OMP_SCHEDULE=dynamic,2 %gdb-test -x %S/ompd_icvs.cmd %t 2>&1 | tee
// %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main(void) {
omp_set_max_active_levels(3);
omp_set_dynamic(0);
omp_set_num_threads(9);
#pragma omp parallel
{
omp_set_num_threads(5);
#pragma omp parallel
{
#pragma omp single
{ printf("Inner: num_thds=%d\n", omp_get_num_threads()); }
}
#pragma omp barrier
omp_set_max_active_levels(0);
#pragma omp parallel
{
#pragma omp single
{ printf("Inner: num_thds=%d\n", omp_get_num_threads()); }
}
#pragma omp barrier
#pragma omp single
{ printf("Outer: num_thds=%d\n", omp_get_num_threads()); }
}
return 0;
}
// CHECK: Loaded OMPD lib successfully!
// CHECK: run-sched-var task dynamic,2
// CHECK: levels-var parallel 2
// CHECK: active-levels-var parallel 2
// CHECK: team-size-var parallel 5
// CHECK: levels-var parallel 2
// CHECK: active-levels-var parallel 1
// CHECK: team-size-var parallel 1
// CHECK: levels-var parallel 1
// CHECK: active-levels-var parallel 1
// CHECK: team-size-var parallel 9
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.
// CHECK-NOT: No such file or directory

openmp/libompd/test/openmp_examples/ompd_icvs.cmd

  • This file was added.
ompd init
b ompd_icvs.c:17
b ompd_icvs.c:24
b ompd_icvs.c:28
c
ompd icvs
d 3
c
ompd icvs
d 4
c
ompd icvs
d 5
c

openmp/libompd/test/openmp_examples/ompd_parallel.c

  • This file was added.
// RUN: %gdb-compile 2>&1 | tee %t.compile
// RUN: %gdb-test -x %S/ompd_parallel.cmd %t 2>&1 | tee %t.out | FileCheck %s
#include <omp.h>
#include <stdio.h>
int main() {
omp_set_max_active_levels(3);
omp_set_num_threads(7);
#pragma omp parallel
{
omp_set_num_threads(5);
#pragma omp parallel
{
omp_set_num_threads(3);
#pragma omp parallel
{ printf("In nested level:3, team size = %d.\n", omp_get_num_threads()); }
printf("In nested level:2, team size = %d.\n", omp_get_num_threads());
}
printf("In nested level:1, team size = %d.\n", omp_get_num_threads());
}
return 0;
}
// CHECK: Loaded OMPD lib successfully!
// CHECK: Nesting Level 3: Team Size: 3
// CHECK: ompd_parallel.c{{[ ]*}}:16
// CHECK: Nesting Level 2: Team Size: 5
// CHECK: ompd_parallel.c{{[ ]*}}:13
// CHECK: Nesting Level 1: Team Size: 7
// CHECK: ompd_parallel.c{{[ ]*}}:10
// CHECK: Nesting Level 2: Team Size: 5
// CHECK: ompd_parallel.c{{[ ]*}}:13
// CHECK: Nesting Level 1: Team Size: 7
// CHECK: ompd_parallel.c{{[ ]*}}:10
// CHECK: Nesting Level 1: Team Size: 7
// CHECK: ompd_parallel.c{{[ ]*}}:10
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.
// CHECK-NOT: No such file or directory

openmp/libompd/test/openmp_examples/ompd_parallel.cmd

  • This file was added.
ompd init
b ompd_parallel.c:17
b ompd_parallel.c:19
b ompd_parallel.c:21
c
ompd parallel
d 3
c
ompd parallel
d 4
c
ompd parallel
d 5
c

openmp/libompd/test/openmp_examples/parallel.c

  • This file was added.
// RUN: %gdb-compile-and-run 2>&1 | tee %t.out | FileCheck %s
#include "../ompt_plugin.h"
#include <stdio.h>
#include <stdlib.h>
int main(int argc, char **argv) {
int n = 5;
if (argc > 1)
n = atoi(argv[1]);
int i = 0;
int a[1000];
#pragma omp parallel for
for (i = 0; i < 100; ++i) {
#pragma omp task
{
a[i] = 42;
ompd_tool_test(0);
}
}
return 0;
}
// CHECK-NOT: OMPT-OMPD mismatch
// CHECK-NOT: Python Exception
// CHECK-NOT: The program is not being run.

openmp/libompd/test/test.cmd

  • This file was added.
ompd init
continue
quit
No newline at end of file