Improve MPI_Bcast stub

MolSSI-MDI · Jun 27, 2024 · b821e1c · b821e1c
1 parent dc77dc9
commit b821e1c
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/tests/MDI_Test_Codes/STUBS_MPI/mpi.F90 b/tests/MDI_Test_Codes/STUBS_MPI/mpi.F90
@@ -12,7 +12,7 @@ MODULE MPI
    INTEGER :: MPI_CHAR = 5
 
    INTERFACE MPI_Bcast
-      MODULE PROCEDURE MPI_Bcast_s
+      MODULE PROCEDURE MPI_Bcast_s, MPI_Bcast_i
    END INTERFACE
 
   CONTAINS
@@ -50,6 +50,15 @@ SUBROUTINE MPI_Bcast_s(buffer, count, datatype, root, comm, ierr)
       ierr = 0
     END SUBROUTINE MPI_Bcast_s
 
+    SUBROUTINE MPI_Bcast_i(buffer, count, datatype, root, comm, ierr)
+      IMPLICIT NONE
+      INTEGER                                  :: buffer
+      INTEGER                                  :: count, datatype, root, comm
+      INTEGER, INTENT(OUT)                     :: ierr
+
+      ierr = 0
+    END SUBROUTINE MPI_Bcast_i
+
     SUBROUTINE MPI_Finalize(ierr)
       IMPLICIT NONE
       INTEGER                                  :: comm