elsif (/--?maxnp=(.*)/) { $np_max = $1; }
elsif (/--?tests=(.*)/) { $listfiles = $1; }
elsif (/--?srcdir=(.*)/) { $srcdir = $1;
- $mpiexec="$mpiexec -platform ${srcdir}/../../../../examples/platforms/small_platform_with_routers.xml -hostfile ${srcdir}/../../hostfile_coll --log=root.thr:critical --cfg=smpi/running-power:1e9 --cfg=smpi/async-small-thresh:65536"; }
+ $mpiexec="$mpiexec -platform ${srcdir}/../../../../examples/platforms/small_platform_with_routers.xml -hostfile ${srcdir}/../../hostfile_coll --log=root.thr:critical --cfg=smpi/host-speed:1e9 --cfg=smpi/async-small-thresh:65536"; }
elsif (/--?verbose/) { $verbose = 1; }
elsif (/--?showprogress/) { $showProgress = 1; }
elsif (/--?debug/) { $debug = 1; }
elsif (/--?privatization=(.*)/) {
print STDERR "privatization called\n";
$enabled_privatization = $1; }
- elsif (/VALGRIND_COMMAND=(.*)/) {
- $valgrind = $1; }
- elsif (/VALGRIND_OPTIONS=(.*)/) {
- $wrapparg = "-wrapper \"$valgrind $1\""; }
+ elsif (/--?wrapper=(.*)/) {
+ $wrapparg = "-wrapper \"$1\"" if $1 ne "";
+ }
elsif (/--?xmlfile=(.*)/) {
$xmlfile = $1;
if (! ($xmlfile =~ /^\//)) {
print "TAP formatted results in $tapfullfile\n";
}
}
+exit ($err_count > 0);
#\f
# ---------------------------------------------------------------------------
# Routines
# Skip FORTRAN STOP
if (/FORTRAN STOP/) { next; }
$inline .= $_;
+ if (/^==[0-9]+== ?WARNING: ASan doesn't fully support/) {
+ next;
+ }
if (/^\s*No [Ee]rrors\s*$/ && $found_noerror == 0) {
$found_noerror = 1;
}