diff options
Diffstat (limited to 'lib/sbin')
-rw-r--r-- | lib/sbin/RunTestUtils.pl | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/lib/sbin/RunTestUtils.pl b/lib/sbin/RunTestUtils.pl index 0fc50920..3174db31 100644 --- a/lib/sbin/RunTestUtils.pl +++ b/lib/sbin/RunTestUtils.pl @@ -457,13 +457,23 @@ sub FindRunCommand # Look to see if MPI is dfined my $have_mpi = ParseExtras($config_data); + + my $nprocs = (defined ($ENV{'CCTK_TESTSUITE_RUN_PROCESSORS'}) ? + $ENV{'CCTK_TESTSUITE_RUN_PROCESSORS'} : 2); + if ($have_mpi) { - my $nprocs = (defined ($ENV{'CCTK_TESTSUITE_RUN_PROCESSORS'}) ? - $ENV{'CCTK_TESTSUITE_RUN_PROCESSORS'} : 2); $config_data->{'NPROCS'} = &defprompt(' Enter number of processors ($nprocs)', $nprocs); } + else + { + print "No MPI available\n"; + if ($nprocs > 1) + { + die("Cannot run on $nprocs processes without an MPI implementation\n"); + } + } my $command; if (defined ($ENV{'CCTK_TESTSUITE_RUN_COMMAND'})) |