diff options
Diffstat (limited to 'gcc/testsuite/lib')
| -rw-r--r-- | gcc/testsuite/lib/g77-dg.exp | 5 | ||||
| -rw-r--r-- | gcc/testsuite/lib/prune.exp | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/lib/g77-dg.exp b/gcc/testsuite/lib/g77-dg.exp index 396604c..1fc94d2 100644 --- a/gcc/testsuite/lib/g77-dg.exp +++ b/gcc/testsuite/lib/g77-dg.exp @@ -97,6 +97,11 @@ proc g77-dg-test { prog do_what extra_tool_flags } { set comp_output [g77_target_compile "$prog" "$output_file" "$compile_type" $options]; + # Put the error message on the same line as the 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 + return [list $comp_output $output_file] } diff --git a/gcc/testsuite/lib/prune.exp b/gcc/testsuite/lib/prune.exp index eb391c6..2752634 100644 --- a/gcc/testsuite/lib/prune.exp +++ b/gcc/testsuite/lib/prune.exp @@ -19,7 +19,7 @@ proc prune_gcc_output { text } { #send_user "Before:$text\n" - regsub -all "(^|\n)\[^\n\]*: In (function|member|method|constructor|instantiation) \[^\n\]*" $text "" text + regsub -all "(^|\n)\[^\n\]*: In (function|member|method|constructor|instantiation|program|subroutine|block-data) \[^\n\]*" $text "" text regsub -all "(^|\n)\[^\n\]*: At (top level|global scope):\[^\n\]*" $text "" text regsub -all "(^|\n)collect2: ld returned \[^\n\]*" $text "" text regsub -all "(^|\n)Please submit.*instructions\[^\n\]*" $text "" text |