find_g77 proc

[Jeffrey A Law]

For those that are (or will soon :-) be playing with the g77
f-torture testsuite, here's a find_g77 proc for libgloss.exp:

proc find_g77 {} {
    global base_dir

    if ![is_remote host] {
	set file [lookfor_file $base_dir g77];
	if { $file == "" } {
	    set file [lookfor_file $base_dir gcc/g77];
	}
	if { $file != "" } {
	    set CC "$file -B[file dirname $file]/ --driver=[file dirname $file]/xgcc";
	} else {
	    set CC [transform g77];
	}
    } else {
	set CC [transform g77]
    }
    return $CC;
}