From e4314fac874e24c0c6dad328d0efc04f667a8827 Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Fri, 9 Jul 2004 15:03:17 +0000 Subject: [PATCH] gfortran-dg.exp (gfortran-dg-test): Adapt regular expression to match gfortran warning/error messages 2004-07-10 David Billinghurst (David.Billinghurst@riotinto.com) * lib/gfortran-dg.exp (gfortran-dg-test): Adapt regular expression to match gfortran warning/error messages From-SVN: r84375 --- gcc/testsuite/lib/gfortran-dg.exp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/lib/gfortran-dg.exp b/gcc/testsuite/lib/gfortran-dg.exp index f1c47b9c7c9..903d380c02d 100644 --- a/gcc/testsuite/lib/gfortran-dg.exp +++ b/gcc/testsuite/lib/gfortran-dg.exp @@ -26,9 +26,10 @@ proc gfortran-dg-test { prog do_what extra_tool_flags } { set output_file [lindex $result 1] # Put the error message on the same line as the line number + # FIXME: Add a colon after line number # Remove the line of source code with the error and - # the " ^" that points to error - regsub -all "\n\[^\n\]*\n *\\^\n" $comp_output "" comp_output + # the number pointing to error + regsub -all "\n\n\[^\n\]*\n *\[0-9\]*\n" $comp_output ": " comp_output return [list $comp_output $output_file] } -- 2.30.2