libio.exp (test_libio): Reset ld_library_path before appending the same path(s) again.

        * lib/libio.exp (test_libio): Reset ld_library_path before appending
        the same path(s) again.

From-SVN: r20767

libio/testsuite/ChangeLog

+Sat Jun 27 23:59:35 1998  Carlo Wood  <carlo@runaway.xs4all.nl>
+
+	* lib/libio.exp (test_libio): Reset ld_library_path before appending
+	the same path(s) again.
+
 Sat Sep  6 00:49:31 1997  Brendan Kehoe  <brendan@lisa.cygnus.com>
 
 	* lib/libio.exp (test_libio): Lose -L.. before -lio, may as well

libio/testsuite/lib/libio.exp

@@ -48,13 +48,15 @@ proc test_libio { srcfile compile_args inpfile resultfile exec_args } {
     global LIBIO
     global srcdir subdir objdir
     global TOOL_OPTIONS
-    global wrapper_file wrap_compile_flags;
+    global wrapper_file wrap_compile_flags
+    global ld_library_path
 
     if { $inpfile != "" } {
 	set inpfile "$srcdir/../tests/$inpfile"
     }
 
     set args ""
+    set ld_library_path ""
     lappend args "additional_flags=-O3";
     lappend args "additional_flags=-I.. -I$srcdir/.."
     lappend args "additional_flags=$wrap_compile_flags";