1
1

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
Этот коммит содержится в:
Jeff Squyres 2014-01-23 01:21:42 +00:00
родитель 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
!-----------------------------------------