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

Test case for g++/15861

Browse source 
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.

From-SVN: r84392
This commit is contained in:
Frank Ch. Eigler 2004-07-09 19:51:51 +00:00 • committed by Frank Ch. Eigler
parent 999a1ad4ec
commit b984b4bfa5
5 changed files with 73 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
libmudflap/ChangeLog
View file

@ -1,3 +1,11 @@
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.
2004-07-08 Frank Ch. Eigler <fche@redhat.com>
ANSI C conversion, libmudflap specialization, recursion limiting.

4
libmudflap/testsuite/libmudflap.c++/c++frags.exp
View file

@ -6,9 +6,9 @@ dg-init
global srcdir
foreach flags [list {} {-static} {-O2} {-O3}] {
foreach srcfile [lsort [glob -nocomplain ${srcdir}/libmudflap.c++/*.cxx]] {
foreach srcfile [lsort [glob -nocomplain ${srcdir}/libmudflap.c++/*frag.cxx]] {
set bsrc [file tail $srcfile]
setenv MUDFLAP_OPTIONS "-no-heur-proc-map -viol-segv"
setenv MUDFLAP_OPTIONS "-viol-segv"
dg-runtest $srcfile $flags "-fmudflap -lmudflap"
}
}

20
libmudflap/testsuite/libmudflap.c++/ctors-1.cxx Normal file
View file

@ -0,0 +1,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;
}

1
libmudflap/testsuite/libmudflap.c++/ctors-2.cxx Normal file
View file

@ -0,0 +1 @@
char k [500];

42
libmudflap/testsuite/libmudflap.c++/ctors.exp Normal file
View file

@ -0,0 +1,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