Skip to content

Commit 80a7996

Browse files
committed
mpi-f08-interfaces.h.in: remove superflous imports
Remove some extra "use" imports that weren't actually used (i.e., remove harmless kruft). Signed-off-by: Jeff Squyres <jsquyres@cisco.com>
1 parent 54d95d9 commit 80a7996

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

ompi/mpi/fortran/use-mpi-f08/mod/mpi-f08-interfaces.h.in

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -812,7 +812,7 @@ end interface MPI_Type_get_extent
812812

813813
interface MPI_Type_get_extent_x
814814
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
816816
implicit none
817817
TYPE(MPI_Datatype), INTENT(IN) :: datatype
818818
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: lb, extent
@@ -832,7 +832,7 @@ end interface MPI_Type_get_true_extent
832832

833833
interface MPI_Type_get_true_extent_x
834834
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
836836
implicit none
837837
TYPE(MPI_Datatype), INTENT(IN) :: datatype
838838
INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: true_lb, true_extent
@@ -2587,7 +2587,7 @@ end interface MPI_Graph_neighbors_count
25872587

25882588
interface MPI_Topo_test
25892589
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
25912591
implicit none
25922592
TYPE(MPI_Comm), INTENT(IN) :: comm
25932593
INTEGER, INTENT(OUT) :: status
@@ -3294,7 +3294,7 @@ end interface MPI_Compare_and_swap
32943294

32953295
interface MPI_Win_complete
32963296
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
32983298
implicit none
32993299
TYPE(MPI_Win), INTENT(IN) :: win
33003300
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
@@ -3341,7 +3341,7 @@ end interface MPI_Win_attach
33413341

33423342
interface MPI_Win_detach
33433343
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
33453345
implicit none
33463346
@OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base
33473347
@OMPI_FORTRAN_IGNORE_TKR_TYPE@ OMPI_ASYNCHRONOUS :: base
@@ -3437,7 +3437,7 @@ end interface MPI_Win_start
34373437

34383438
interface MPI_Win_sync
34393439
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
34413441
implicit none
34423442
TYPE(MPI_Win), INTENT(IN) :: win
34433443
INTEGER, OPTIONAL, INTENT(OUT) :: ierror

0 commit comments

Comments
 (0)