gcc/testsuite/ada/acats/run_test.exp

   1 #!/usr/bin/expect -f
   2
   3 if {[info exists env(DEJAGNU_TIMEOUT)]} {
   4     set timeout $env(DEJAGNU_TIMEOUT)
   5 } else {
   6     set timeout 300
   7 }
   8
   9 spawn -noecho $argv
  10 expect timeout {
  11     send_user "Program timed out.\n"
  12     exit 1
  13 }