tsan-dg.exp (tsan_init): Try to run a trivial program, if it fails don't run any...

	* lib/tsan-dg.exp (tsan_init): Try to run a trivial program,
	if it fails don't run any tsan tests.

From-SVN: r207337

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 117ef0c50855967eee0872a829bc0b03ab0d2aee..435b0556f41d877d4a250fc49c849060b2c0f4f0 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-31  Jakub Jelinek  <jakub@redhat.com>
+
+       * lib/tsan-dg.exp (tsan_init): Try to run a trivial program,
+       if it fails don't run any tsan tests.
+
 2014-01-31  Marek Polacek  <polacek@redhat.com>
 
        PR c/59963

diff --git a/gcc/testsuite/lib/tsan-dg.exp b/gcc/testsuite/lib/tsan-dg.exp
index 8fc2c308dbb152d8313bec27dc5bf31108461a9f..2274f066dffaafb310369525c22ce140d11b9611 100644 (file)
--- a/gcc/testsuite/lib/tsan-dg.exp
+++ b/gcc/testsuite/lib/tsan-dg.exp
@@ -93,7 +93,11 @@ proc tsan_init { args } {
        }
     }
     if { $link_flags != "" } {
-       return 1
+       if [check_runtime_nocache tsan_works {
+               int main () { return 0; }
+           } "-fPIE -pie -fsanitize=thread -g"] {
+           return 1
+       }
     }
     return 0
 }