Handle CRLF when reading XML on Windows

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.fortran / common-block.exp

diff --git a/gdb/testsuite/gdb.fortran/common-block.exp b/gdb/testsuite/gdb.fortran/common-block.exp
index 167e34d4e283149cf09624af2a73d32fc5c9fde1..4647af6524e85f01fe23a28abb22ab53e11ea485 100644 (file)
--- a/gdb/testsuite/gdb.fortran/common-block.exp
+++ b/gdb/testsuite/gdb.fortran/common-block.exp
@@ -1,4 +1,4 @@
-# Copyright 2008-2016 Free Software Foundation, Inc.
+# Copyright 2008-2019 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -11,8 +11,7 @@
 # GNU General Public License for more details.
 # 
 # You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 # This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>.
 
@@ -23,7 +22,7 @@ if {[skip_fortran_tests]} {
 standard_testfile .f90
 load_lib "fortran.exp"
 
-if {[prepare_for_testing ${testfile}.exp ${testfile} \
+if {[prepare_for_testing "failed to prepare" ${testfile} \
         $srcfile {debug f90 quiet}]} {
     return -1
 }