OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
David Billinghurst 2004-07-09 15:03:17 +00:00
parent 5128111850
commit e4314fac87
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/lib/gfortran-dg.exp
View File

@ -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]
}