diff options
| author | David Billinghurst <billingd@gcc.gnu.org> | 2004-07-09 15:03:17 +0000 |
|---|---|---|
| committer | David Billinghurst <billingd@gcc.gnu.org> | 2004-07-09 15:03:17 +0000 |
| commit | e4314fac874e24c0c6dad328d0efc04f667a8827 (patch) | |
| tree | 198ba160ada81b2f3c76dff8898ec8244e3d60c9 | |
| parent | 5128111850194d5336e6cfc0ca75396251062644 (diff) | |
| download | gcc-e4314fac874e24c0c6dad328d0efc04f667a8827.zip gcc-e4314fac874e24c0c6dad328d0efc04f667a8827.tar.gz gcc-e4314fac874e24c0c6dad328d0efc04f667a8827.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/lib/gfortran-dg.exp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/testsuite/lib/gfortran-dg.exp b/gcc/testsuite/lib/gfortran-dg.exp index f1c47b9c..903d380 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] } |