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

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

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