# Build flags
$remove_this_pgm = 0;
-$clean_pgms = 1;
+$clean_pgms = 0;
my $program_wrapper = '';
elsif (/--?maxnp=(.*)/) { $np_max = $1; }
elsif (/--?tests=(.*)/) { $listfiles = $1; }
elsif (/--?srcdir=(.*)/) { $srcdir = $1;
- $mpiexec="$mpiexec -platform ${srcdir}/../small_platform_with_routers.xml -hostfile ${srcdir}/../hostfile --log=root.thr:critical --cfg=smpi/running_power:1e9"; }
+ $mpiexec="$mpiexec -platform ${srcdir}/../../../../examples/msg/small_platform_with_routers.xml -hostfile ${srcdir}/../hostfile --log=root.thr:critical --cfg=smpi/running_power:1e9"; }
elsif (/--?verbose/) { $verbose = 1; }
elsif (/--?showprogress/) { $showProgress = 1; }
elsif (/--?debug/) { $debug = 1; }
# Return value is 0 on success, non zero on failure
sub BuildMPIProgram {
my $programname = shift;
+ if (! -x $programname) {
+ die "Could not find $programname. Aborting.\n";
+ }
+ return 0;
+ # THE FOLLOWING IS DISABLED.
my $xfail = shift;
my $rc = 0;
if ($verbose) { print STDERR "making $programname\n"; }