URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [ada/] [acats/] [run_test.exp] - Blame information for rev 294

Details | Compare with Previous | View Log


#!/usr/bin/expect -f
 
if {[info exists env(DEJAGNU_TIMEOUT)]} {
    set timeout $env(DEJAGNU_TIMEOUT)
} else {
    set timeout 300
}
 
spawn -noecho $argv
expect timeout {
    send_user "Program timed out.\n"
    exit 1
}

Line No.	Rev	Author	Line
1	294	jeremybenn	`#!/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			`}`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [ada/] [acats/] [run_test.exp] - Blame information for rev 294