| 
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