123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778 |
- # This whole file adapted from libgomp.c/c.exp.
- if [info exists lang_library_path] then {
- unset lang_library_path
- unset lang_link_flags
- }
- if [info exists lang_test_file] then {
- unset lang_test_file
- }
- if [info exists lang_include_flags] then {
- unset lang_include_flags
- }
- load_lib libgomp-dg.exp
- load_gcc_lib gcc-dg.exp
- # If a testcase doesn't have special options, use these.
- if ![info exists DEFAULT_CFLAGS] then {
- set DEFAULT_CFLAGS "-O2"
- }
- # Initialize dg.
- dg-init
- # Turn on OpenACC.
- lappend ALWAYS_CFLAGS "additional_flags=-fopenacc"
- # Gather a list of all tests.
- set tests [lsort [concat \
- [find $srcdir/$subdir *.c] \
- [find $srcdir/$subdir/../libgomp.oacc-c-c++-common *.c]]]
- set ld_library_path $always_ld_library_path
- append ld_library_path [gcc-set-multilib-library-path $GCC_UNDER_TEST]
- set_ld_library_path_env_vars
- # Test OpenACC with available accelerators.
- set SAVE_ALWAYS_CFLAGS "$ALWAYS_CFLAGS"
- foreach offload_target_openacc $offload_targets_s_openacc {
- set ALWAYS_CFLAGS "$SAVE_ALWAYS_CFLAGS"
- set tagopt "-DACC_DEVICE_TYPE_$offload_target_openacc=1"
- switch $offload_target_openacc {
- host {
- set acc_mem_shared 1
- }
- host_nonshm {
- set acc_mem_shared 0
- }
- nvidia {
- if { ![check_effective_target_openacc_nvidia_accel_present] } {
- # Don't bother; execution testing is going to FAIL.
- untested "$subdir $offload_target_openacc offloading"
- continue
- }
- # Copy ptx file (TEMPORARY)
- remote_download host $srcdir/libgomp.oacc-c-c++-common/subr.ptx
- # Where timer.h lives
- lappend ALWAYS_CFLAGS "additional_flags=-I${srcdir}/libgomp.oacc-c-c++-common"
- set acc_mem_shared 0
- }
- default {
- set acc_mem_shared 0
- }
- }
- set tagopt "$tagopt -DACC_MEM_SHARED=$acc_mem_shared"
- setenv ACC_DEVICE_TYPE $offload_target_openacc
- dg-runtest $tests "$tagopt" $DEFAULT_CFLAGS
- }
- # All done.
- dg-finish
|