gfortran-dg.exp (gfortran-dg-test): Adapt regular expression to match gfortran warnin...

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

diff --git a/gcc/testsuite/lib/gfortran-dg.exp b/gcc/testsuite/lib/gfortran-dg.exp
index f1c47b9c7c9302f06fbd15d8e5f430393bc3f596..903d380c02d2bd331ff81e8eac446684ad1c5539 100644 (file)
--- 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]
 }