libjava:

	PR testsuite/21164
	* testsuite/lib/libjava.exp: Load dg.exp.
	* testsuite/libjava.jar/jar.exp (gcj_jar_interpret): Strip srcdir
	from jarfile.
	Use result for messages.
	* testsuite/libjava.loader/loader.exp (gcj_loader_test_one): Pass
	errname to libjava_invoke, fix testname.

	gcc:
	PR testsuite/21164
	* lib/compat.exp (compat-execute): Declare unsupported after
	stripping path from src1.
	* lib/lto.exp (lto-execute): Likewise.


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

1 files changed, 4 insertions, 3 deletions

diff --git a/libjava/testsuite/libjava.jar/jar.exp b/libjava/testsuite/libjava.jar/jar.exp
index 65565832e79..e57bcb3e540 100644
--- a/libjava/testsuite/libjava.jar/jar.exp
+++ b/libjava/testsuite/libjava.jar/jar.exp
@@ -20,17 +20,18 @@ proc gcj_jar_interpret {jarfile} {
   global INTERPRETER srcdir
 
   set gij [libjava_find_gij]
+  set errname [dg-trim-dirname $srcdir $jarfile]
   # libjava_find_gij will return "" if it couldn't find the
   # program; in this case we want to skip the test.
   if {$INTERPRETER != "yes" || $gij == ""} {
-    untested "$jarfile execution - gij test"
-    untested "$jarfile output - gij test"
+    untested "$errname execution - gij test"
+    untested "$errname output - gij test"
     return
   }
 
   set opts(_) {}
   set out [file rootname $jarfile].out
-  libjava_invoke $jarfile "gij test" opts $gij {} $out \
+  libjava_invoke $errname "gij test" opts $gij {} $out \
       "" -jar $jarfile
 }