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:
parent
c3ffea5051
commit
efce71c65a
@ -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.
|
||||
|
@ -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"
|
||||
|
Loading…
Reference in New Issue
Block a user