| program mpi_ver | |
| @MPI_Fortran_INCLUDE_LINE@ | |
| integer(kind=kind(MPI_VERSION)), parameter :: zero = ichar('0') | |
| character, dimension(17), parameter :: mpiver_str =& | |
| (/ 'I', 'N', 'F', 'O', ':', 'M', 'P', 'I', '-', 'V', 'E', 'R', '[', & | |
| char(zero + MPI_VERSION), & | |
| '.', & | |
| char(zero + MPI_SUBVERSION), ']' /) | |
| print *, mpiver_str | |
| end program mpi_ver |