f-torture.exp (f_torture_compile): Prune the warnings before testing that no relevant ones were found.

* lib/f-torture.exp (f_torture_compile): Prune the warnings before
testing that no relevant ones were found.

From-SVN: r38944
This commit is contained in:
Richard Earnshaw 2001-01-12 16:11:34 +00:00 committed by Richard Earnshaw
parent c3ffea5051
commit efce71c65a
2 changed files with 8 additions and 2 deletions

View File

@ -1,3 +1,8 @@
2001-01-12 Richard Earnshaw <rearnsha@arm.com>
* lib/f-torture.exp (f_torture_compile): Prune the warnings before
testing that no relevant ones were found.
2001-01-12 Nathan Sidwell <nathan@codesourcery.com>
* g++.old-deja/g++.pt/cast2.C: New test.

View File

@ -89,6 +89,9 @@ proc f-torture-compile { src option } {
return
}
# Prune warnings we know are unwanted.
set comp_output [prune_warnings $comp_output]
# We shouldn't get these because of -w, but just in case.
if [string match "*77*:*warning:*" $comp_output] then {
warning "$testcase: (with warnings) $option"
@ -98,8 +101,6 @@ proc f-torture-compile { src option } {
return
}
set comp_output [prune_warnings $comp_output]
set unsupported_message [g77_check_unsupported_p $comp_output]
if { $unsupported_message != "" } {
unsupported "$testcase: $unsupported_message"