fortran: don't complain about script args if we're not building fortran
refs trac:4917 This commit was SVN r32766. The following Trac tickets were found above: Ticket 4917 --> https://svn.open-mpi.org/trac/ompi/ticket/4917
Этот коммит содержится в:
родитель
d7eaca83fa
Коммит
040611556f
@ -46,11 +46,14 @@ my $ok = Getopt::Long::GetOptions("header=s" => \$header_arg,
|
||||
die "Must specify header and/or impl filenames to output"
|
||||
if (!defined($header_arg) && !defined($impl_arg));
|
||||
die "ierror handling must be optional or mandatory"
|
||||
if (lc($ierror_arg) ne "optional" && lc($ierror_arg) ne "mandatory");
|
||||
if (defined($generate_arg) && $generate_arg &&
|
||||
(lc($ierror_arg) ne "optional" && lc($ierror_arg) ne "mandatory"));
|
||||
die "max array rank must be >= 4 and <=15"
|
||||
if (!defined($maxrank_arg) || $maxrank_arg < 4 || $maxrank_arg > 15);
|
||||
if (defined($generate_arg) && $generate_arg &&
|
||||
(!defined($maxrank_arg) || $maxrank_arg < 4 || $maxrank_arg > 15));
|
||||
die "Must specify --pmpi and/or --mpi if --impl is specified"
|
||||
if (defined($impl_arg) && !defined($mpi_arg) && !defined($pmpi_arg));
|
||||
if (defined($generate_arg) && $generate_arg &&
|
||||
(defined($impl_arg) && !defined($mpi_arg) && !defined($pmpi_arg)));
|
||||
|
||||
#############################################################################
|
||||
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user