* lib/f-torture.exp (f_torture_compile): Prune the warnings before
testing that no relevant ones were found.
From-SVN: r38944
+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.
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"
return
}
- set comp_output [prune_warnings $comp_output]
-
set unsupported_message [g77_check_unsupported_p $comp_output]
if { $unsupported_message != "" } {
unsupported "$testcase: $unsupported_message"