We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent ee8ec56 commit 496a7bdCopy full SHA for 496a7bd
ompi/mpi/fortran/base/gen-mpi-sizeof.pl
@@ -227,9 +227,7 @@ sub output_file {
227
! compiler to build Open MPI.\n\n";
228
229
if ($want_bodies) {
230
- my $name = "ompi_sad_panda";
231
- $name = "pompi_sad_panda"
232
- if ($pmpi_arg);
+ my $name = $pmpi_arg ? "pompi_sad_panda" : "ompi_sad_panda";
233
print OUT "!
234
! Dummy subroutine, just so that there is *some* Fortran in this file
235
! (this is defensive programming: since the Fortran compiler doesn't
0 commit comments