|
1 | 1 | #!/usr/bin/env perl |
2 | 2 | # |
3 | | -# Copyright (c) 2014 Cisco Systems, Inc. All rights reserved. |
| 3 | +# Copyright (c) 2014-2015 Cisco Systems, Inc. All rights reserved. |
4 | 4 | # Copyright (c) 2015 Research Organization for Information Science |
5 | 5 | # and Technology (RIST). All rights reserved. |
6 | 6 | # $COPYRIGHT$ |
@@ -218,12 +218,32 @@ sub output_file { |
218 | 218 | ! Specifically: we need support for the INTERFACE keyword, |
219 | 219 | ! ISO_FORTRAN_ENV, and the STORAGE_SIZE() intrinsic on all types. |
220 | 220 | ! Apparently, this compiler does not support both of those things, so |
221 | | -! this file will be blank (i.e., we didn't bother generating the |
222 | | -! necessary stuff for MPI_SIZEOF because the compiler doesn't support |
| 221 | +! this file will be (effecitvely) blank (i.e., we didn't bother |
| 222 | +! generating the necessary stuff for MPI_SIZEOF because the compiler |
| 223 | +! doesn't support |
223 | 224 | ! it). |
224 | 225 | ! |
225 | 226 | ! If you want support for MPI_SIZEOF, please use a different Fortran |
226 | 227 | ! compiler to build Open MPI.\n\n"; |
| 228 | + |
| 229 | + if ($want_bodies) { |
| 230 | + my $name = $pmpi_arg ? "pompi_sad_panda" : "ompi_sad_panda"; |
| 231 | + print OUT "! |
| 232 | +! Dummy subroutine, just so that there is *some* Fortran in this file |
| 233 | +! (this is defensive programming: since the Fortran compiler doesn't |
| 234 | +! support enough mojo, configure should set some AM_CONDITIONALs such |
| 235 | +! that this file should not end up being compiled, but just in case |
| 236 | +! that logic changes someday and this file *does* end up getting |
| 237 | +! compiled, make sure that it's not entirely empty because some |
| 238 | +! compilers are unhappy if there are no Fortran statements in this |
| 239 | +! file). |
| 240 | +subroutine $name() |
| 241 | + implicit none |
| 242 | +
|
| 243 | + print *, 'Open MPI is a sad panda because your Fortran compiler' |
| 244 | + print *, 'does not support enough Fortran mojo for MPI_SIZEOF' |
| 245 | +end subroutine $name\n\n"; |
| 246 | + } |
227 | 247 | } |
228 | 248 |
|
229 | 249 | close(OUT); |
|
0 commit comments