Commit c1cadde1 by Jakub Jelinek Committed by Jakub Jelinek

* testsuite/lib/libgomp.exp

	(check_effective_target_hsa_offloading_selected_nocache): Fix up
	check_compile invocation.  Fix up removal of executable.  Drop
	bogus "2>&1" argument.

From-SVN: r244948
parent 41d3d0ac
2017-01-26 Jakub Jelinek <jakub@redhat.com> 2017-01-26 Jakub Jelinek <jakub@redhat.com>
* testsuite/lib/libgomp.exp
(check_effective_target_hsa_offloading_selected_nocache): Fix up
check_compile invocation. Fix up removal of executable. Drop
bogus "2>&1" argument.
* testsuite/libgomp.fortran/declare-simd-4.f90: Add cleanup-modules * testsuite/libgomp.fortran/declare-simd-4.f90: Add cleanup-modules
directive. directive.
......
...@@ -408,16 +408,16 @@ proc check_effective_target_hsa_offloading_selected_nocache {} { ...@@ -408,16 +408,16 @@ proc check_effective_target_hsa_offloading_selected_nocache {} {
} }
} }
set result [eval [list check_compile hsa_offloading_src executable $src] ""] set result [check_compile hsa_offloading_src executable $src]
set lines [lindex $result 0] set lines [lindex $result 0]
set output [lindex $result 1] set exe [lindex $result 1]
set ok 0 set ok 0
if { [string match "" $lines] } { if { [string match "" $lines] } {
# No error messages, let us switch on HSA debugging output and run it # No error messages, let us switch on HSA debugging output and run it
set prev_HSA_DEBUG [getenv HSA_DEBUG] set prev_HSA_DEBUG [getenv HSA_DEBUG]
setenv HSA_DEBUG "1" setenv HSA_DEBUG "1"
set result [remote_load target "./$output" "2>&1" ""] set result [remote_load target "./$exe"]
if { [string match "" $prev_HSA_DEBUG] } { if { [string match "" $prev_HSA_DEBUG] } {
unsetenv HSA_DEBUG unsetenv HSA_DEBUG
} else { } else {
...@@ -425,6 +425,7 @@ proc check_effective_target_hsa_offloading_selected_nocache {} { ...@@ -425,6 +425,7 @@ proc check_effective_target_hsa_offloading_selected_nocache {} {
} }
set status [lindex $result 0] set status [lindex $result 0]
if { $status != "pass" } { if { $status != "pass" } {
remote_file build delete $exe
verbose "HSA availability test failed" verbose "HSA availability test failed"
return 0 return 0
} }
...@@ -434,7 +435,7 @@ proc check_effective_target_hsa_offloading_selected_nocache {} { ...@@ -434,7 +435,7 @@ proc check_effective_target_hsa_offloading_selected_nocache {} {
set ok 1 set ok 1
} }
} }
remote_file build delete $output remote_file build delete $exe
return $ok return $ok
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment