use File::Path;
# Global variables
-$MPIMajorVersion = "2";
-$MPIMinorVersion = "2";
+$MPIMajorVersion = "3";
+$MPIMinorVersion = "1";
$mpiexec = "smpirun"; # Name of mpiexec program (including path, if necessary)
$testIsStrict = "true";
$MPIhasMPIX = "no";
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;
}