Skip to content

Commit 9f8b450

Browse files
committed
use-mpi-f08: remove superflous imports
Signed-off-by: Jeff Squyres <jsquyres@cisco.com>
1 parent e240420 commit 9f8b450

10 files changed

+10
-10
lines changed

ompi/mpi/fortran/use-mpi-f08/comm_get_name_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@
1010
#include "mpi-f08-rename.h"
1111

1212
subroutine MPI_Comm_get_name_f08(comm,comm_name,resultlen,ierror)
13-
use :: mpi_f08_types, only : MPI_Comm, MPI_MAX_OBJECT_NAME
13+
use :: mpi_f08_types, only : MPI_Comm
1414
use :: ompi_mpifh_bindings, only : ompi_comm_get_name_f
1515
implicit none
1616
TYPE(MPI_Comm), INTENT(IN) :: comm

ompi/mpi/fortran/use-mpi-f08/topo_test_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@
1010
#include "mpi-f08-rename.h"
1111

1212
subroutine MPI_Topo_test_f08(comm,status,ierror)
13-
use :: mpi_f08_types, only : MPI_Comm, MPI_Status
13+
use :: mpi_f08_types, only : MPI_Comm
1414
use :: ompi_mpifh_bindings, only : ompi_topo_test_f
1515
implicit none
1616
TYPE(MPI_Comm), INTENT(IN) :: comm

ompi/mpi/fortran/use-mpi-f08/type_get_envelope_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@
1111

1212
subroutine MPI_Type_get_envelope_f08(datatype,num_integers,num_addresses, &
1313
num_datatypes,combiner,ierror)
14-
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
14+
use :: mpi_f08_types, only : MPI_Datatype
1515
use :: ompi_mpifh_bindings, only : ompi_type_get_envelope_f
1616
implicit none
1717
TYPE(MPI_Datatype), INTENT(IN) :: datatype

ompi/mpi/fortran/use-mpi-f08/type_get_extent_x_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@
1010
#include "mpi-f08-rename.h"
1111

1212
subroutine MPI_Type_get_extent_x_f08(datatype,lb,extent,ierror)
13-
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
13+
use :: mpi_f08_types, only : MPI_Datatype, MPI_COUNT_KIND
1414
use :: ompi_mpifh_bindings, only : ompi_type_get_extent_x_f
1515
implicit none
1616
TYPE(MPI_Datatype), INTENT(IN) :: datatype

ompi/mpi/fortran/use-mpi-f08/type_get_name_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@
1010
#include "mpi-f08-rename.h"
1111

1212
subroutine MPI_Type_get_name_f08(datatype,type_name,resultlen,ierror)
13-
use :: mpi_f08_types, only : MPI_Datatype, MPI_MAX_OBJECT_NAME
13+
use :: mpi_f08_types, only : MPI_Datatype
1414
use :: ompi_mpifh_bindings, only : ompi_type_get_name_f
1515
implicit none
1616
TYPE(MPI_Datatype), INTENT(IN) :: datatype

ompi/mpi/fortran/use-mpi-f08/type_get_true_extent_x_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@
1010
#include "mpi-f08-rename.h"
1111

1212
subroutine MPI_Type_get_true_extent_x_f08(datatype,true_lb,true_extent,ierror)
13-
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND
13+
use :: mpi_f08_types, only : MPI_Datatype, MPI_COUNT_KIND
1414
use :: ompi_mpifh_bindings, only : ompi_type_get_true_extent_x_f
1515
implicit none
1616
TYPE(MPI_Datatype), INTENT(IN) :: datatype

ompi/mpi/fortran/use-mpi-f08/type_indexed_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@
1111

1212
subroutine MPI_Type_indexed_f08(count,array_of_blocklengths, &
1313
array_of_displacements,oldtype,newtype,ierror)
14-
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
14+
use :: mpi_f08_types, only : MPI_Datatype
1515
use :: ompi_mpifh_bindings, only : ompi_type_indexed_f
1616
implicit none
1717
INTEGER, INTENT(IN) :: count

ompi/mpi/fortran/use-mpi-f08/type_size_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@
1010
#include "mpi-f08-rename.h"
1111

1212
subroutine MPI_Type_size_f08(datatype,size,ierror)
13-
use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND
13+
use :: mpi_f08_types, only : MPI_Datatype
1414
use :: ompi_mpifh_bindings, only : ompi_type_size_f
1515
implicit none
1616
TYPE(MPI_Datatype), INTENT(IN) :: datatype

ompi/mpi/fortran/use-mpi-f08/win_detach_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@
1010
#include "mpi-f08-rename.h"
1111

1212
subroutine MPI_Win_detach_f08(win,base,ierror)
13-
use :: mpi_f08_types, only : MPI_Win, MPI_ADDRESS_KIND
13+
use :: mpi_f08_types, only : MPI_Win
1414
use :: ompi_mpifh_bindings, only : ompi_win_detach_f
1515
implicit none
1616
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: base

ompi/mpi/fortran/use-mpi-f08/win_get_name_f08.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@
1111

1212
subroutine MPI_Win_get_name_f08(win,win_name,resultlen,ierror)
1313
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
14-
use :: mpi_f08_types, only : MPI_Win, MPI_MAX_OBJECT_NAME
14+
use :: mpi_f08_types, only : MPI_Win
1515
use :: ompi_mpifh_bindings, only : ompi_win_get_name_f
1616
implicit none
1717
TYPE(MPI_Win), INTENT(IN) :: win

0 commit comments

Comments
 (0)