Revert part of SVN r30273: remove "protected" from special Fortran sentinels
r30273 made the use of the Fortran "protected" keyword be compiler-specific (i.e., configure/macro-ized it). But it inadvertantly added the use of "protected" to some sentinel constants that should not be protected (e.g., MPI_STATUS_IGNORE). This commit reverts the addition of "protected" to the constants that should not be protected. cmr=v1.7.4:subject=Rollup of Fortran fixes for v1.7.4 This commit was SVN r30375. The following SVN revision numbers were found above: r30273 --> open-mpi/ompi@5f17bc3c2c
Этот коммит содержится в:
родитель
06e6a06f3e
Коммит
fe76eac8ab
@ -172,13 +172,13 @@ module mpi_f08_types
|
||||
|
||||
!... Special sentinel constants
|
||||
!------------------------------
|
||||
type(MPI_STATUS), bind(C, name="mpi_fortran_status_ignore") OMPI_PROTECTED :: MPI_STATUS_IGNORE
|
||||
type(MPI_STATUS), bind(C, name="mpi_fortran_statuses_ignore") OMPI_PROTECTED :: MPI_STATUSES_IGNORE(1)
|
||||
integer, bind(C, name="mpi_fortran_bottom") OMPI_PROTECTED :: MPI_BOTTOM
|
||||
integer, bind(C, name="mpi_fortran_in_place") OMPI_PROTECTED :: MPI_IN_PLACE
|
||||
integer, bind(C, name="mpi_fortran_argv_null") OMPI_PROTECTED :: MPI_ARGV_NULL
|
||||
integer, bind(C, name="mpi_fortran_argvs_null") OMPI_PROTECTED :: MPI_ARGVS_NULL
|
||||
integer, bind(C, name="mpi_fortran_errcodes_ignore") OMPI_PROTECTED :: MPI_ERRCODES_IGNORE
|
||||
type(MPI_STATUS), bind(C, name="mpi_fortran_status_ignore") :: MPI_STATUS_IGNORE
|
||||
type(MPI_STATUS), bind(C, name="mpi_fortran_statuses_ignore") :: MPI_STATUSES_IGNORE(1)
|
||||
integer, bind(C, name="mpi_fortran_bottom") :: MPI_BOTTOM
|
||||
integer, bind(C, name="mpi_fortran_in_place") :: MPI_IN_PLACE
|
||||
integer, bind(C, name="mpi_fortran_argv_null") :: MPI_ARGV_NULL
|
||||
integer, bind(C, name="mpi_fortran_argvs_null") :: MPI_ARGVS_NULL
|
||||
integer, bind(C, name="mpi_fortran_errcodes_ignore") :: MPI_ERRCODES_IGNORE
|
||||
|
||||
!... Interfaces for operators with handles
|
||||
!-----------------------------------------
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user