Index: g++.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/g++.exp,v
retrieving revision 1.26
diff -p -r1.26 g++.exp
*** g++.exp	9 May 2002 21:01:53 -0000	1.26
--- g++.exp	24 Sep 2002 15:43:16 -0000
*************** proc g++_init { args } {
*** 239,245 ****
      }
  
      if { [target_info needs_status_wrapper] != "" } {
! 	set gluefile ${tmpdir}/testglue.o;
  	set result [build_wrapper $gluefile];
  	if { $result != "" } {
  	    set gluefile [lindex $result 0];
--- 239,245 ----
      }
  
      if { [target_info needs_status_wrapper] != "" } {
! 	set gluefile ${tmpdir}/g++-testglue.o;
  	set result [build_wrapper $gluefile];
  	if { $result != "" } {
  	    set gluefile [lindex $result 0];
Index: g77.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/g77.exp,v
retrieving revision 1.14
diff -p -r1.14 g77.exp
*** g77.exp	9 May 2002 21:01:53 -0000	1.14
--- g77.exp	24 Sep 2002 15:43:16 -0000
*************** proc g77_init { args } {
*** 168,174 ****
      }
  
      if { [target_info needs_status_wrapper] != "" } {
! 	set gluefile ${tmpdir}/testglue.o;
  	set result [build_wrapper $gluefile];
  	if { $result != "" } {
  	    set gluefile [lindex $result 0];
--- 168,174 ----
      }
  
      if { [target_info needs_status_wrapper] != "" } {
! 	set gluefile ${tmpdir}/g77-testglue.o;
  	set result [build_wrapper $gluefile];
  	if { $result != "" } {
  	    set gluefile [lindex $result 0];
Index: gcc.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/gcc.exp,v
retrieving revision 1.9
diff -p -r1.9 gcc.exp
*** gcc.exp	16 Jul 2002 02:16:47 -0000	1.9
--- gcc.exp	24 Sep 2002 15:43:16 -0000
*************** proc gcc_init { args } {
*** 109,115 ****
      if {[target_info needs_status_wrapper] != "" && \
  	    [target_info needs_status_wrapper] != "0" && \
  	    ![info exists gluefile]} {
! 	set gluefile ${tmpdir}/testglue.o;
  	set result [build_wrapper $gluefile];
  	if { $result != "" } {
  	    set gluefile [lindex $result 0];
--- 109,115 ----
      if {[target_info needs_status_wrapper] != "" && \
  	    [target_info needs_status_wrapper] != "0" && \
  	    ![info exists gluefile]} {
! 	set gluefile ${tmpdir}/gcc-testglue.o;
  	set result [build_wrapper $gluefile];
  	if { $result != "" } {
  	    set gluefile [lindex $result 0];
Index: objc.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/objc.exp,v
retrieving revision 1.15
diff -p -r1.15 objc.exp
*** objc.exp	16 Jul 2002 02:16:47 -0000	1.15
--- objc.exp	24 Sep 2002 15:43:16 -0000
*************** proc objc_init { args } {
*** 108,114 ****
  	set tmpdir /tmp
      }
      if { [target_info needs_status_wrapper]!="" && ![info exists 
gluefile] } {
! 	set gluefile ${tmpdir}/testglue.o;
  	set result [build_wrapper $gluefile];
  	if { $result != "" } {
  	    set gluefile [lindex $result 0];
--- 108,114 ----
  	set tmpdir /tmp
      }
      if { [target_info needs_status_wrapper]!="" && ![info exists 
gluefile] } {
! 	set gluefile ${tmpdir}/objc-testglue.o;
  	set result [build_wrapper $gluefile];
  	if { $result != "" } {
  	    set gluefile [lindex $result 0];