[mudflap] test case for c++ mudflap bug

[mudflap] test case for c++ mudflap bug

[Frank Ch. Eigler]

Hi -

The following patch adds a test case for bug g++/15861.


> 2004-07-09  Frank Ch. Eigler  <fche@redhat.com>
> 
> 	Test case for g++/15861
> 	* testsuite/libmudflap.c++/ctors-[12].cxx: New test case halves.
> 	* testsuite/libmudflap.c++/ctors.exp: Driver.
> 	* testsuite/libmudflap.c++/c++frags.exp: Elide redundant default.
> 	Look only for *frag* test cases.


Index: testsuite/libmudflap.c++/c++frags.exp
===================================================================
RCS file: /cvs/gcc/gcc/libmudflap/testsuite/libmudflap.c++/c++frags.exp,v
retrieving revision 1.4
diff -r1.4 c++frags.exp
9c9
<     foreach srcfile [lsort [glob -nocomplain ${srcdir}/libmudflap.c++/*.cxx]] {
---
>     foreach srcfile [lsort [glob -nocomplain ${srcdir}/libmudflap.c++/*frag.cxx]] {
11c11
< 	setenv MUDFLAP_OPTIONS "-no-heur-proc-map -viol-segv"
---
> 	setenv MUDFLAP_OPTIONS "-viol-segv"
Index: testsuite/libmudflap.c++/ctors-1.cxx
===================================================================
RCS file: testsuite/libmudflap.c++/ctors-1.cxx
diff -N testsuite/libmudflap.c++/ctors-1.cxx
0a1,20
> #include <iostream>
> 
> 
> extern char k [];
> 
> class foo
> {
>  public:
>   foo (char *m) { m [40] = 20; }
> };
> 
> 
> foo f1 (k);
> foo f2 (k);
> foo f3 (k);
> 
> int main ()
> {
>   return 0;
> }
Index: testsuite/libmudflap.c++/ctors-2.cxx
===================================================================
RCS file: testsuite/libmudflap.c++/ctors-2.cxx
diff -N testsuite/libmudflap.c++/ctors-2.cxx
0a1
> char k [500];
Index: testsuite/libmudflap.c++/ctors.exp
===================================================================
RCS file: testsuite/libmudflap.c++/ctors.exp
diff -N testsuite/libmudflap.c++/ctors.exp
0a1,42
> 
> libmudflap-init c++
> 
> dg-init
> 
> global srcdir subdir
> 
> foreach flags [list {} {-static} {-O2} {-O3}] {
>     set l1 [libmudflap_target_compile "$srcdir/$subdir/ctors-1.cxx" "ctors-1.o" object {additional_flags=-fmudflap}]
>     set test "ctors-1 compilation ${flags}"
>     if [string match "*mudflap cannot track lifetime of*k*" $l1] { pass $test } { fail $test }
> 
>     set l2 [libmudflap_target_compile "$srcdir/$subdir/ctors-2.cxx" "ctors-2.o" object {additional_flags=-fmudflap}]
>     set test "ctors-2 compilation ${flags}"
>     if [string match "" $l2]  { pass $test } { fail $test }
> 
>     set l3 [libmudflap_target_compile "ctors-1.o ctors-2.o" "ctors-12.exe" executable {additional_flags=-fmudflap additional_flags=-lmudflap additional_flags=-lstdc++}]
>     set test "ctors-12 linkage ${flags}"
>     if [string match "" $l3]  { pass $test } { fail $test }
> 
>     set l4 [libmudflap_target_compile "ctors-2.o ctors-1.o" "ctors-21.exe" executable {additional_flags=-fmudflap additional_flags=-lmudflap additional_flags=-lstdc++}]
>     set test "ctors-21 linkage ${flags}"
>     if [string match "" $l3]  { pass $test } { fail $test }
> 
>     setenv MUDFLAP_OPTIONS "-viol-segv"
> 
>     remote_spawn host "./ctors-12.exe"
>     set l5 [remote_wait host 10]
>     set test "ctors-12 execution ${flags}"
>     if {[lindex $l5 0] == 0}  { pass $test } { fail $test }
> 
>     remote_spawn host "./ctors-21.exe"
>     set l6 [remote_wait host 10]
>     set test "ctors-21 execution ${flags}"
>     if {[lindex $l6 0] == 0}  { pass $test } { fail $test }
> 
>     foreach f [glob -nocomplain "ctors-*"] {
>        remote_file build delete $f
>     }
> }
> 
> dg-finish