procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gcc-dg.exp (gcc-dg-test-1): Detect and report ICE.

Browse source 
* lib/gcc-dg.exp (gcc-dg-test-1): Detect and report ICE.
	* lib/gcc-defs.exp (tool_check_compile): Ditto.
	* lib/fortran-torture.exp (fortran-torture-compile,
	fortran-torture-execute): Ditto.

From-SVN: r114445
This commit is contained in:
Janis Johnson 2006-06-06 19:16:14 +00:00 • committed by Janis Johnson
parent 32845532e0
commit 6edf8a5229
4 changed files with 32 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,10 @@
2006-06-06 Janis Johnson <janis187@us.ibm.com>
* lib/gcc-dg.exp (gcc-dg-test-1): Detect and report ICE.
* lib/gcc-defs.exp (tool_check_compile): Ditto.
* lib/fortran-torture.exp (fortran-torture-compile,
fortran-torture-execute): Ditto.
2006-06-06 Ulrich Weigand <uweigand@de.ibm.com>
PR target/27842

12
gcc/testsuite/lib/fortran-torture.exp
View file

@ -87,6 +87,12 @@ proc fortran-torture-compile { src option } {
return
}
if [string match "*internal compiler error*" $comp_output] then {
gfortran_fail $testcase "$option (internal compiler error)"
catch { remote_file build delete $output }
return
}
# We shouldn't get these because of -w, but just in case.
if [string match "*95*:*warning:*" $comp_output] then {
warning "$testcase: (with warnings) $option"
@ -204,6 +210,12 @@ proc fortran-torture-execute { src } {
catch { remote_file build delete $executable }
continue
}
if [string match "*internal compiler error*" $comp_output] then {
gfortran_fail $testcase "$option (internal compiler error)"
catch { remote_file build delete $executable }
continue
}
# We shouldn't get these because of -w, but just in case.
if [string match "*95*:*warning:*" $comp_output] then {

5
gcc/testsuite/lib/gcc-defs.exp
View file

@ -34,6 +34,11 @@ proc ${tool}_check_compile {testcase option objname gcc_output} {
return 0
}
if [string match "*internal compiler error*" $gcc_output] then {
${tool}_fail $testcase "$option (internal compiler error)"
return 0
}
# We shouldn't get these because of -w, but just in case.
if [string match "*cc:*warning:*" $gcc_output] then {
warning "$testcase: (with warnings) $option"

8
gcc/testsuite/lib/gcc-dg.exp
View file

@ -139,6 +139,14 @@ proc gcc-dg-test-1 { target_compile prog do_what extra_tool_flags } {
set comp_output [$target_compile "$prog" "$output_file" "$compile_type" $options]
# Look for an internal compiler error, which sometimes masks the fact
# that we didn't get an expected error message. An ICE always fails,
# there's no way to XFAIL it.
if [string match "*internal compiler error*" $comp_output] {
upvar 2 name name
fail "$name (internal compiler error)"
}
if { $do_what == "repo" } {
set object_file "$output_file"
set output_file "[file rootname [file tail $prog]].exe"