@@ -812,7 +812,7 @@ end interface MPI_Type_get_extent
812
812
813
813
interface MPI_Type_get_extent_x
814
814
subroutine MPI_Type_get_extent_x_f08 (datatype ,lb ,extent ,ierror )
815
- use :: mpi_f08_types , only : MPI_Datatype , MPI_ADDRESS_KIND , MPI_COUNT_KIND
815
+ use :: mpi_f08_types , only : MPI_Datatype , MPI_COUNT_KIND
816
816
implicit none
817
817
TYPE (MPI_Datatype ), INTENT (IN ) :: datatype
818
818
INTEGER (MPI_COUNT_KIND ), INTENT (OUT ) :: lb , extent
@@ -832,7 +832,7 @@ end interface MPI_Type_get_true_extent
832
832
833
833
interface MPI_Type_get_true_extent_x
834
834
subroutine MPI_Type_get_true_extent_x_f08 (datatype ,true_lb ,true_extent ,ierror )
835
- use :: mpi_f08_types , only : MPI_Datatype , MPI_ADDRESS_KIND , MPI_COUNT_KIND
835
+ use :: mpi_f08_types , only : MPI_Datatype , MPI_COUNT_KIND
836
836
implicit none
837
837
TYPE (MPI_Datatype ), INTENT (IN ) :: datatype
838
838
INTEGER (MPI_COUNT_KIND ), INTENT (OUT ) :: true_lb , true_extent
@@ -2587,7 +2587,7 @@ end interface MPI_Graph_neighbors_count
2587
2587
2588
2588
interface MPI_Topo_test
2589
2589
subroutine MPI_Topo_test_f08 (comm ,status ,ierror )
2590
- use :: mpi_f08_types , only : MPI_Comm , MPI_Status
2590
+ use :: mpi_f08_types , only : MPI_Comm
2591
2591
implicit none
2592
2592
TYPE (MPI_Comm ), INTENT (IN ) :: comm
2593
2593
INTEGER , INTENT (OUT ) :: status
@@ -3294,7 +3294,7 @@ end interface MPI_Compare_and_swap
3294
3294
3295
3295
interface MPI_Win_complete
3296
3296
subroutine MPI_Win_complete_f08 (win ,ierror )
3297
- use :: mpi_f08_types , only : MPI_Info , MPI_Comm , MPI_Win , MPI_ADDRESS_KIND
3297
+ use :: mpi_f08_types , only : MPI_Win
3298
3298
implicit none
3299
3299
TYPE (MPI_Win ), INTENT (IN ) :: win
3300
3300
INTEGER , OPTIONAL , INTENT (OUT ) :: ierror
@@ -3341,7 +3341,7 @@ end interface MPI_Win_attach
3341
3341
3342
3342
interface MPI_Win_detach
3343
3343
subroutine MPI_Win_detach_f08 (win ,base ,ierror )
3344
- use :: mpi_f08_types , only : MPI_Win , MPI_ADDRESS_KIND
3344
+ use :: mpi_f08_types , only : MPI_Win
3345
3345
implicit none
3346
3346
@OMPI_FORTRAN_IGNORE_TKR_PREDECL @ base
3347
3347
@OMPI_FORTRAN_IGNORE_TKR_TYPE @ OMPI_ASYNCHRONOUS :: base
@@ -3437,7 +3437,7 @@ end interface MPI_Win_start
3437
3437
3438
3438
interface MPI_Win_sync
3439
3439
subroutine MPI_Win_sync_f08 (win ,ierror )
3440
- use :: mpi_f08_types , only : MPI_Group , MPI_Win
3440
+ use :: mpi_f08_types , only : MPI_Win
3441
3441
implicit none
3442
3442
TYPE (MPI_Win ), INTENT (IN ) :: win
3443
3443
INTEGER , OPTIONAL , INTENT (OUT ) :: ierror
0 commit comments