From e189d217d72bc673b7e84dfdff9f4284b1be9667 Mon Sep 17 00:00:00 2001
From: Gaurav Dhingra <gauravdhingra.gxyd@gmail.com>
Date: Tue, 25 Mar 2025 16:51:19 +0530
Subject: [PATCH] tests: add MPI_Bcast test program

---
 tests/bcast_1.f90 | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 tests/bcast_1.f90

diff --git a/tests/bcast_1.f90 b/tests/bcast_1.f90
new file mode 100644
index 0000000..2f66017
--- /dev/null
+++ b/tests/bcast_1.f90
@@ -0,0 +1,17 @@
+program bcast_1
+    use mpi
+    implicit none
+
+    integer, parameter :: n = 100
+    integer :: rank, size, i, ierr
+    integer :: d
+
+    call MPI_Init(ierr)
+    call MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr)
+    call MPI_Comm_size(MPI_COMM_WORLD, size, ierr)
+
+    d = 1
+    call MPI_Bcast(d, n, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
+    call MPI_Finalize(ierr)
+    if (ierr /= 0) error stop
+end program bcast_1