From 0f3a3e52bae025c3baec2773ff753255ebb5a9ba Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Sat, 22 Aug 2015 03:07:44 -0700 Subject: [PATCH] gen-mpi-sizeof: minor style change Suggested by Paul Hargrove. --- ompi/mpi/fortran/base/gen-mpi-sizeof.pl | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/ompi/mpi/fortran/base/gen-mpi-sizeof.pl b/ompi/mpi/fortran/base/gen-mpi-sizeof.pl index d4fe34402a..5ea3dca3a4 100755 --- a/ompi/mpi/fortran/base/gen-mpi-sizeof.pl +++ b/ompi/mpi/fortran/base/gen-mpi-sizeof.pl @@ -227,9 +227,7 @@ sub output_file { ! compiler to build Open MPI.\n\n"; if ($want_bodies) { - my $name = "ompi_sad_panda"; - $name = "pompi_sad_panda" - if ($pmpi_arg); + my $name = $pmpi_arg ? "pompi_sad_panda" : "ompi_sad_panda"; print OUT "! ! Dummy subroutine, just so that there is *some* Fortran in this file ! (this is defensive programming: since the Fortran compiler doesn't