ecos.exp: Append .exe instead of a.out as the link output.

2002-01-22  H.J. Lu <hjl@gnu.org>

	* g++.dg/special/ecos.exp: Append .exe instead of a.out as the
	link output.
	* gcc.dg/special/ecos.exp: Likewise.
	* lib/g++-dg.exp: Likewise.
	* lib/g77-dg.exp: Likewise.
	* lib/gcc-dg.exp : Likewise.
	* lib/mike-g++.exp: Likewise.
	* lib/mike-g77.exp: Likewise.
	* lib/mike-gcc.exp: Likewise.
	* lib/objc-dg.exp: Likewise.

From-SVN: r49100

gcc/testsuite/ChangeLog

+2002-01-22  H.J. Lu <hjl@gnu.org>
+
+	* g++.dg/special/ecos.exp: Append .exe instead of a.out as the
+	link output.
+	* gcc.dg/special/ecos.exp: Likewise.
+	* lib/g++-dg.exp: Likewise.
+	* lib/g77-dg.exp: Likewise.
+	* lib/gcc-dg.exp : Likewise.
+	* lib/mike-g++.exp: Likewise.
+	* lib/mike-g77.exp: Likewise.
+	* lib/mike-gcc.exp: Likewise.
+	* lib/objc-dg.exp: Likewise.
+
 2002-01-22  Janis Johnson  <janis187@us.ibm.com>
 
 	PR target/5379

gcc/testsuite/g++.dg/special/ecos.exp

@@ -29,15 +29,15 @@ load_lib g++-dg.exp
 ###########
 
 dg-init
-set lines [g++_target_compile "$srcdir/$subdir/conpr-1.C" "$objdir/a.out" executable ""]
+set lines [g++_target_compile "$srcdir/$subdir/conpr-1.C" "$objdir/conpr-1.exe" executable ""]
 if [string match "*init_priority*" $lines] then {
     xfail "conpr-1.C"
-    file delete $objdir/a.out
+    file delete $objdir/conpr-1.exe
 } elseif ![string match "" $lines] then {
     fail "conpr-1.C"
 } else {
     dg-runtest "$srcdir/$subdir/conpr-1.C" "" "" 
-    file delete $objdir/a.out
+    file delete $objdir/conpr-1.exe
 }
 dg-finish
 
@@ -89,15 +89,15 @@ dg-finish
 ###########
 
 dg-init
-set lines [g++_target_compile "$srcdir/$subdir/initp1.C" "$objdir/a.out" executable ""]
+set lines [g++_target_compile "$srcdir/$subdir/initp1.C" "$objdir/initp1.exe" executable ""]
 if [string match "*init_priority*" $lines] then {
     xfail "initp1.C"
-    file delete $objdir/a.out
+    file delete $objdir/initp1.exe
 } elseif ![string match "" $lines] then {
     fail "initp1.C"
 } else {
     dg-runtest "$srcdir/$subdir/initp1.C" "" ""
-    file delete $objdir/a.out
+    file delete $objdir/initp1.exe
 }
 dg-finish
 

gcc/testsuite/gcc.dg/special/ecos.exp

@@ -124,7 +124,7 @@ if { [ check_weak_available ] == 1 } {
         set lines [gcc_target_compile "$srcdir/$subdir/wkali-2b.c" "wkali-2b.o" object ""]
         if [string match "*only weak aliases*" $lines] then {
 	    xfail "wkali-2b.o"
-	    file delete $srcdir/$subdir/a.out
+	    file delete $srcdir/$subdir/wkali-2.exe
         } elseif ![string match "" $lines] then {
             fail "wkali-2b.o"
         } else {

gcc/testsuite/lib/g++-dg.exp

@@ -39,7 +39,7 @@ proc g++-dg-test { prog do_what extra_tool_flags } {
 	}
 	"link" {
 	    set compile_type "executable"
-	    set output_file "a.out"
+	    set output_file "[file rootname [file tail $prog]].exe"
 	    # The following line is needed for targets like the i960 where
 	    # the default output file is b.out.  Sigh.
 	}
@@ -48,7 +48,7 @@ proc g++-dg-test { prog do_what extra_tool_flags } {
 	    # FIXME: "./" is to cope with "." not being in $PATH.
 	    # Should this be handled elsewhere?
 	    # YES.
-	    set output_file "./a.out"
+	    set output_file "./[file rootname [file tail $prog]].exe"
 	    # This is the only place where we care if an executable was
 	    # created or not.  If it was, dg.exp will try to run it.
 	    remote_file build delete $output_file;

gcc/testsuite/lib/g77-dg.exp

@@ -71,7 +71,7 @@ proc g77-dg-test { prog do_what extra_tool_flags } {
 	}
 	"link" {
 	    set compile_type "executable"
-	    set output_file "a.out"
+	    set output_file "[file rootname [file tail $prog]].exe"
 	    # The following line is needed for targets like the i960 where
 	    # the default output file is b.out.  Sigh.
 	}
@@ -80,7 +80,7 @@ proc g77-dg-test { prog do_what extra_tool_flags } {
 	    # FIXME: "./" is to cope with "." not being in $PATH.
 	    # Should this be handled elsewhere?
 	    # YES.
-	    set output_file "./a.out"
+	    set output_file "./[file rootname [file tail $prog]].exe"
 	    # This is the only place where we care if an executable was
 	    # created or not.  If it was, dg.exp will try to run it.
 	    remote_file build delete $output_file;

gcc/testsuite/lib/gcc-dg.exp

@@ -71,7 +71,7 @@ proc gcc-dg-test { prog do_what extra_tool_flags } {
 	}
 	"link" {
 	    set compile_type "executable"
-	    set output_file "a.out"
+	    set output_file "[file rootname [file tail $prog]].exe"
 	    # The following line is needed for targets like the i960 where
 	    # the default output file is b.out.  Sigh.
 	}
@@ -80,7 +80,7 @@ proc gcc-dg-test { prog do_what extra_tool_flags } {
 	    # FIXME: "./" is to cope with "." not being in $PATH.
 	    # Should this be handled elsewhere?
 	    # YES.
-	    set output_file "./a.out"
+	    set output_file "./[file rootname [file tail $prog]].exe"
 	    # This is the only place where we care if an executable was
 	    # created or not.  If it was, dg.exp will try to run it.
 	    remote_file build delete $output_file;

gcc/testsuite/lib/mike-g++.exp

@@ -113,12 +113,12 @@ proc postbase  { src_code run groups args } {
 	link
 	{
 	    set compile_type "executable";
-	    set output_file "$tmpdir/a.out";
+	    append output_file ".exe";
 	}
 	run
 	{
 	    set compile_type "executable";
-	    set output_file "$tmpdir/a.out";
+	    append output_file ".exe";
 	    set run yes;
 	}
 	default

gcc/testsuite/lib/mike-g77.exp

@@ -120,12 +120,12 @@ proc postbase  { src_code run groups args } {
 	link
 	{
 	    set compile_type "executable";
-	    set output_file "$tmpdir/a.out";
+	    append output_file ".exe";
 	}
 	run
 	{
 	    set compile_type "executable";
-	    set output_file "$tmpdir/a.out";
+	    append output_file ".exe";
 	    set run yes;
 	}
 	default

gcc/testsuite/lib/mike-gcc.exp

@@ -117,12 +117,12 @@ proc postbase  { src_code run groups args } {
 	link
 	{
 	    set compile_type "executable";
-	    set output_file "$tmpdir/a.out";
+	    append output_file ".exe";
 	}
 	run
 	{
 	    set compile_type "executable";
-	    set output_file "$tmpdir/a.out";
+	    append output_file ".exe";
 	    set run yes;
 	}
 	default

gcc/testsuite/lib/objc-dg.exp

@@ -73,7 +73,7 @@ proc objc-dg-test { prog do_what extra_tool_flags } {
 	}
 	"link" {
 	    set compile_type "executable"
-	    set output_file "a.out"
+	    set output_file "[file rootname [file tail $prog]].exe"
 	    # The following line is needed for targets like the i960 where
 	    # the default output file is b.out.  Sigh.
 	}
@@ -82,7 +82,7 @@ proc objc-dg-test { prog do_what extra_tool_flags } {
 	    # FIXME: "./" is to cope with "." not being in $PATH.
 	    # Should this be handled elsewhere?
 	    # YES.
-	    set output_file "./a.out"
+	    set output_file "./[file rootname [file tail $prog]].exe"
 	    # This is the only place where we care if an executable was
 	    # created or not.  If it was, dg.exp will try to run it.
 	    remote_file build delete $output_file;