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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@49100 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 17975c2..836457f 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,16 @@
+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

diff --git a/gcc/testsuite/g++.dg/special/ecos.exp b/gcc/testsuite/g++.dg/special/ecos.exp
index 224e086..5b56058 100644 (file)
--- a/gcc/testsuite/g++.dg/special/ecos.exp
+++ b/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
 

diff --git a/gcc/testsuite/gcc.dg/special/ecos.exp b/gcc/testsuite/gcc.dg/special/ecos.exp
index 271e3da..cc632fc 100644 (file)
--- a/gcc/testsuite/gcc.dg/special/ecos.exp
+++ b/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 {

diff --git a/gcc/testsuite/lib/g++-dg.exp b/gcc/testsuite/lib/g++-dg.exp
index aeabf46..8be839e 100644 (file)
--- a/gcc/testsuite/lib/g++-dg.exp
+++ b/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;

diff --git a/gcc/testsuite/lib/g77-dg.exp b/gcc/testsuite/lib/g77-dg.exp
index ba26731..396604c 100644 (file)
--- a/gcc/testsuite/lib/g77-dg.exp
+++ b/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;

diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
index 4faa46d..403fefc 100644 (file)
--- a/gcc/testsuite/lib/gcc-dg.exp
+++ b/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;

diff --git a/gcc/testsuite/lib/mike-g++.exp b/gcc/testsuite/lib/mike-g++.exp
index 61cd526..0844d45 100644 (file)
--- a/gcc/testsuite/lib/mike-g++.exp
+++ b/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

diff --git a/gcc/testsuite/lib/mike-g77.exp b/gcc/testsuite/lib/mike-g77.exp
index a3e12d4..ccc9041 100644 (file)
--- a/gcc/testsuite/lib/mike-g77.exp
+++ b/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

diff --git a/gcc/testsuite/lib/mike-gcc.exp b/gcc/testsuite/lib/mike-gcc.exp
index 89becfb..34cf039 100644 (file)
--- a/gcc/testsuite/lib/mike-gcc.exp
+++ b/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

diff --git a/gcc/testsuite/lib/objc-dg.exp b/gcc/testsuite/lib/objc-dg.exp
index aa4364c..397bb2b 100644 (file)
--- a/gcc/testsuite/lib/objc-dg.exp
+++ b/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;