| Christian Pfeiffer | 9a58e69 | 2017-04-25 17:41:05 +0200 | [diff] [blame] | 1 | program mpi_ver |
| 2 | @MPI_Fortran_INCLUDE_LINE@ | ||||
| 3 | integer(kind=kind(MPI_VERSION)), parameter :: zero = ichar('0') | ||||
| 4 | character, dimension(17), parameter :: mpiver_str =& | ||||
| 5 | (/ 'I', 'N', 'F', 'O', ':', 'M', 'P', 'I', '-', 'V', 'E', 'R', '[', & | ||||
| 6 | char(zero + MPI_VERSION), & | ||||
| 7 | '.', & | ||||
| 8 | char(zero + MPI_SUBVERSION), ']' /) | ||||
| 9 | print *, mpiver_str | ||||
| 10 | end program mpi_ver | ||||