From 040611556f121a191823913bb774cc9b476aae8d Mon Sep 17 00:00:00 2001
From: Jeff Squyres <jsquyres@cisco.com>
Date: Sat, 20 Sep 2014 01:22:40 +0000
Subject: [PATCH] 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
---
 ompi/mpi/fortran/base/gen-mpi-sizeof.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/ompi/mpi/fortran/base/gen-mpi-sizeof.pl b/ompi/mpi/fortran/base/gen-mpi-sizeof.pl
index 43f1fcdc9e..2fc07e9ce4 100755
--- a/ompi/mpi/fortran/base/gen-mpi-sizeof.pl
+++ b/ompi/mpi/fortran/base/gen-mpi-sizeof.pl
@@ -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)));
 
 #############################################################################