@@ -107,16 +107,16 @@ module mpi_f08_types
107
107
! NULL "handles" (indices)
108
108
!
109
109
110
- type (MPI_Comm), bind(C, name= " ompi_f08_mpi_comm_null" ) OMPI_PROTECTED :: MPI_COMM_NULL;
111
- type (MPI_Datatype), bind(C, name= " ompi_f08_mpi_datatype_null" ) OMPI_PROTECTED :: MPI_DATATYPE_NULL;
112
- type (MPI_Errhandler), bind(C, name= " ompi_f08_mpi_errhandler_null" ) OMPI_PROTECTED :: MPI_ERRHANDLER_NULL;
113
- type (MPI_Group), bind(C, name= " ompi_f08_mpi_group_null" ) OMPI_PROTECTED :: MPI_GROUP_NULL;
114
- type (MPI_Info), bind(C, name= " ompi_f08_mpi_info_null" ) OMPI_PROTECTED :: MPI_INFO_NULL;
115
- type (MPI_Message), bind(C, name= " ompi_f08_mpi_message_null" ) OMPI_PROTECTED :: MPI_MESSAGE_NULL;
116
- type (MPI_Op), bind(C, name= " ompi_f08_mpi_op_null" ) OMPI_PROTECTED :: MPI_OP_NULL;
117
- type (MPI_Request), bind(C, name= " ompi_f08_mpi_request_null" ) OMPI_PROTECTED :: MPI_REQUEST_NULL;
118
- type (MPI_Win), bind(C, name= " ompi_f08_mpi_win_null" ) OMPI_PROTECTED :: MPI_WIN_NULL;
119
- type (MPI_File), bind(C, name= " ompi_f08_mpi_file_null" ) OMPI_PROTECTED :: MPI_FILE_NULL;
110
+ type (MPI_Comm), bind(C, name= " ompi_f08_mpi_comm_null" ) OMPI_PROTECTED :: MPI_COMM_NULL
111
+ type (MPI_Datatype), bind(C, name= " ompi_f08_mpi_datatype_null" ) OMPI_PROTECTED :: MPI_DATATYPE_NULL
112
+ type (MPI_Errhandler), bind(C, name= " ompi_f08_mpi_errhandler_null" ) OMPI_PROTECTED :: MPI_ERRHANDLER_NULL
113
+ type (MPI_Group), bind(C, name= " ompi_f08_mpi_group_null" ) OMPI_PROTECTED :: MPI_GROUP_NULL
114
+ type (MPI_Info), bind(C, name= " ompi_f08_mpi_info_null" ) OMPI_PROTECTED :: MPI_INFO_NULL
115
+ type (MPI_Message), bind(C, name= " ompi_f08_mpi_message_null" ) OMPI_PROTECTED :: MPI_MESSAGE_NULL
116
+ type (MPI_Op), bind(C, name= " ompi_f08_mpi_op_null" ) OMPI_PROTECTED :: MPI_OP_NULL
117
+ type (MPI_Request), bind(C, name= " ompi_f08_mpi_request_null" ) OMPI_PROTECTED :: MPI_REQUEST_NULL
118
+ type (MPI_Win), bind(C, name= " ompi_f08_mpi_win_null" ) OMPI_PROTECTED :: MPI_WIN_NULL
119
+ type (MPI_File), bind(C, name= " ompi_f08_mpi_file_null" ) OMPI_PROTECTED :: MPI_FILE_NULL
120
120
121
121
!
122
122
! Pre-defined datatype bindings
0 commit comments