fortran: add a bunch of collective tests

thanks to claude-sonnet-4-5-20250929-v1:0

Signed-off-by: Howard Pritchard <howardp@lanl.gov>

Author: hppritcha

.gitignore

@@ -33,6 +33,10 @@ collective-big-count/test_scatter
 collective-big-count/test_scatterv
 collective-big-count/*_uniform_count
 
+fortran/collectives/*.o
+fortran/collectives/*_f08
+fortran/collectives/*_f90
+
 comm_split_type/cmsplit_type
 
 singleton/hello_c

fortran/Makefile.am

@@ -0,0 +1,12 @@
+# -*- makefile -*-
+#
+# Copyright (c) 2024      Amazon.com, Inc. or its affiliates. All Rights Reserved.
+#
+# $HEADER$
+#
+
+ACLOCAL_AMFLAGS = -I config
+
+# The reporting subdir must be built before all others
+
+SUBDIRS	= collectives

fortran/README.md

@@ -0,0 +1,13 @@
+# Fortran tests
+
+A bunch of fortran tests (use mpi and use mpi_f08 as mpif.h is dead and deprecated and should not be used).
+This testsuite will only work with an MPI implementation that supports MPI 4.1 or higher
+
+Dirt simple configury for now.
+
+# Compile
+```
+$ ./autogen.sh && ./configure FC=mpifort && make
+
+# Run
+Only support run by hand or via a script or something for now

fortran/autogen.sh

@@ -0,0 +1 @@
+autoreconf -ivf

fortran/collectives/Makefile.am

@@ -0,0 +1,195 @@
+# -*- makefile -*-
+#
+
+bin_PROGRAMS		= allgather_f90 \
+                          allgatherv_f90 \
+                          allreduce_f90 \
+                          alltoall_f90 \
+                          alltoallv_f90 \
+                          alltoallw_f90 \
+                          exscan_f90 \
+                          gather_f90 \
+                          gatherv_f90 \
+                          reduce_f90 \
+                          reduce_loc_f90 \
+                          reduce_scatter_f90 \
+                          reduce_scatter_block_f90 \
+                          scan_f90 \
+                          scatter_f90 \
+                          scatterv_f90 \
+                          allgather_f08 \
+                          allgatherv_f08 \
+                          allreduce_f08 \
+                          alltoall_f08 \
+                          alltoallv_f08 \
+                          alltoallw_f08 \
+                          bcast_f08 \
+                          exscan_f08 \
+                          gather_f08 \
+                          gatherv_f08 \
+                          reduce_f08 \
+                          reduce_loc_f08 \
+                          reduce_scatter_f08 \
+                          reduce_scatter_block_f08 \
+                          scan_f08 \
+                          scatter_f08 \
+                          scatter_init_f08 \
+                          scatterv_f08 \
+                          ineighbor_alltoallv_f90 \
+                          ineighbor_alltoallw_f90 \
+                          neighbor_alltoallv_f90  \
+                          neighbor_alltoallv_init_f90 \
+                          neighbor_alltoallw_f90 \
+                          neighbor_alltoallw_init_f90 \
+                          ineighbor_alltoallv_f08 \
+                          ineighbor_alltoallw_f08 \
+                          neighbor_alltoallv_f08 \
+                          neighbor_alltoallv_init_f08 \
+                          neighbor_alltoallw_f08 \
+                          neighbor_alltoallw_init_f08 \
+                          ibarrier_f90 \
+                          iallgather_f90 \
+                          ireduce_scatter_f90 \
+                          ireduce_scatter_block_f90 \
+                          iallgatherv_f90 \
+                          iallreduce_f90 \
+                          iscan_f90 \
+                          iscatter_f90 \
+                          iscatterv_f90 \
+                          ibarrier_f08 \
+                          iallgather_f08 \
+                          ireduce_scatter_f08 \
+                          ireduce_scatter_block_f08 \
+                          iallgatherv_f08 \
+                          iallreduce_f08 \
+                          iscan_f08 \
+                          iscatter_f08 \
+                          iscatterv_f08 \
+                          allgather_init_f90 \
+                          allgatherv_init_f90 \
+                          allreduce_init_f90 \
+                          alltoall_init_f90 \
+                          alltoallv_init_f90 \
+                          alltoallw_init_f90 \
+                          barrier_init_f90 \
+                          bcast_init_f90 \
+                          gather_init_f90 \
+                          gatherv_init_f90 \
+                          reduce_init_f90 \
+                          reduce_scatter_block_init_f90 \
+                          reduce_scatter_init_f90 \
+                          scan_init_f90 \
+                          scatter_init_f90 \
+                          scatterv_init_f90 \
+                          allgather_init_f08 \
+                          allgatherv_init_f08 \
+                          allreduce_init_f08 \
+                          alltoall_init_f08 \
+                          alltoallv_init_f08 \
+                          alltoallw_init_f08 \
+                          barrier_init_f08 \
+                          bcast_init_f08 \
+                          gather_init_f08 \
+                          gatherv_init_f08 \
+                          reduce_init_f08 \
+                          reduce_scatter_block_init_f08 \
+                          reduce_scatter_init_f08 \
+                          scan_init_f08 \
+                          scatter_init_f08 \
+                          scatterv_init_f08
+
+bcast_f08_SOURCES       = bcast_f08.f90
+ibarrier_f90_SOURCES    = ibarrier_f90.f90
+ibarrier_f08_SOURCES    = ibarrier_f08.f90
+barrier_init_f90_SOURCES  = barrier_init_f90.f90
+barrier_init_f08_SOURCES  = barrier_init_f08.f90
+bcast_init_f90_SOURCES  = bcast_init_f90.f90
+bcast_init_f08_SOURCES  = bcast_init_f08.f90
+ineighbor_alltoallv_f90_SOURCES = ineighbor_alltoallv_f90.f90
+ineighbor_alltoallw_f90_SOURCES = ineighbor_alltoallw_f90.f90
+neighbor_alltoallv_f90_SOURCES = neighbor_alltoallv_f90.f90
+neighbor_alltoallv_init_f90_SOURCES = neighbor_alltoallv_init_f90.f90
+neighbor_alltoallw_f90_SOURCES = neighbor_alltoallw_f90.f90
+neighbor_alltoallw_init_f90_SOURCES = neighbor_alltoallw_init_f90.f90
+ineighbor_alltoallv_f08_SOURCES = ineighbor_alltoallv_f08.f90
+ineighbor_alltoallw_f08_SOURCES = ineighbor_alltoallw_f08.f90
+neighbor_alltoallv_f08_SOURCES = neighbor_alltoallv_f08.f90
+neighbor_alltoallv_init_f08_SOURCES = neighbor_alltoallv_init_f08.f90
+neighbor_alltoallw_f08_SOURCES = neighbor_alltoallw_f08.f90
+neighbor_alltoallw_init_f08_SOURCES = neighbor_alltoallw_init_f08.f90
+allgather_f90_SOURCES = allgather_f90.f90
+allgather_init_f90_SOURCES = allgather_init_f90.f90
+allgatherv_f90_SOURCES = allgatherv_f90.f90
+allgatherv_init_f90_SOURCES = allgatherv_init_f90.f90
+allreduce_f90_SOURCES = allreduce_f90.f90
+allreduce_init_f90_SOURCES = allreduce_init_f90.f90
+alltoall_f90_SOURCES = alltoall_f90.f90
+alltoall_init_f90_SOURCES = alltoall_init_f90.f90
+alltoallv_f90_SOURCES = alltoallv_f90.f90
+alltoallv_init_f90_SOURCES = alltoallv_init_f90.f90
+alltoallw_f90_SOURCES = alltoallw_f90.f90
+alltoallw_init_f90_SOURCES = alltoallw_init_f90.f90
+exscan_f90_SOURCES = exscan_f90.f90
+gather_f90_SOURCES = gather_f90.f90
+gather_init_f90_SOURCES = gather_init_f90.f90
+gatherv_f90_SOURCES = gatherv_f90.f90
+gatherv_init_f90_SOURCES = gatherv_init_f90.f90
+iallgather_f90_SOURCES = iallgather_f90.f90
+iallgatherv_f90_SOURCES = iallgatherv_f90.f90
+iallreduce_f90_SOURCES = iallreduce_f90.f90
+ireduce_scatter_f90_SOURCES = ireduce_scatter_f90.f90
+ireduce_scatter_block_f90_SOURCES = ireduce_scatter_block_f90.f90
+iscan_f90_SOURCES = iscan_f90.f90
+iscatter_f90_SOURCES = iscatter_f90.f90
+iscatterv_f90_SOURCES = iscatterv_f90.f90
+reduce_f90_SOURCES = reduce_f90.f90
+reduce_init_f90_SOURCES = reduce_init_f90.f90
+reduce_loc_f90_SOURCES = reduce_loc_f90.f90
+reduce_scatter_f90_SOURCES = reduce_scatter_f90.f90
+reduce_scatter_block_f90_SOURCES = reduce_scatter_block_f90.f90
+reduce_scatter_block_init_f90_SOURCES = reduce_scatter_block_init_f90.f90
+reduce_scatter_init_f90_SOURCES = reduce_scatter_init_f90.f90
+scan_f90_SOURCES = scan_f90.f90
+scan_init_f90_SOURCES = scan_init_f90.f90
+scatter_f90_SOURCES = scatter_f90.f90
+scatter_init_f90_SOURCES = scatter_init_f90.f90
+scatterv_f90_SOURCES = scatterv_f90.f90
+scatterv_init_f90_SOURCES = scatterv_init_f90.f90
+allgather_f08_SOURCES = allgather_f08.f90
+allgather_init_f08_SOURCES = allgather_init_f08.f90
+allgatherv_f08_SOURCES = allgatherv_f08.f90
+allgatherv_init_f08_SOURCES = allgatherv_init_f08.f90
+allreduce_f08_SOURCES = allreduce_f08.f90
+allreduce_init_f08_SOURCES = allreduce_init_f08.f90
+alltoall_f08_SOURCES = alltoall_f08.f90
+alltoall_init_f08_SOURCES = alltoall_init_f08.f90
+alltoallv_f08_SOURCES = alltoallv_f08.f90
+alltoallv_init_f08_SOURCES = alltoallv_init_f08.f90
+alltoallw_f08_SOURCES = alltoallw_f08.f90
+alltoallw_init_f08_SOURCES = alltoallw_init_f08.f90
+exscan_f08_SOURCES = exscan_f08.f90
+gather_f08_SOURCES = gather_f08.f90
+gather_init_f08_SOURCES = gather_init_f08.f90
+gatherv_f08_SOURCES = gatherv_f08.f90
+gatherv_init_f08_SOURCES = gatherv_init_f08.f90
+iallgather_f08_SOURCES = iallgather_f08.f90
+iallgatherv_f08_SOURCES = iallgatherv_f08.f90
+iallreduce_f08_SOURCES = iallreduce_f08.f90
+ireduce_scatter_f08_SOURCES = ireduce_scatter_f08.f90
+ireduce_scatter_block_f08_SOURCES = ireduce_scatter_block_f08.f90
+iscan_f08_SOURCES = iscan_f08.f90
+iscatter_f08_SOURCES = iscatter_f08.f90
+iscatterv_f08_SOURCES = iscatterv_f08.f90
+reduce_f08_SOURCES = reduce_f08.f90
+reduce_init_f08_SOURCES = reduce_init_f08.f90
+reduce_loc_f08_SOURCES = reduce_loc_f08.f90
+reduce_scatter_f08_SOURCES = reduce_scatter_f08.f90
+reduce_scatter_block_f08_SOURCES = reduce_scatter_block_f08.f90
+reduce_scatter_block_init_f08_SOURCES = reduce_scatter_block_init_f08.f90
+reduce_scatter_init_f08_SOURCES = reduce_scatter_init_f08.f90
+scan_f08_SOURCES = scan_f08.f90
+scan_init_f08_SOURCES = scan_init_f08.f90
+scatter_f08_SOURCES = scatter_f08.f90
+scatter_init_f08_SOURCES = scatter_init_f08.f90
+scatterv_f08_SOURCES = scatterv_f08.f90
+scatterv_init_f08_SOURCES = scatterv_init_f08.f90

fortran/collectives/allgather_f08.f90

@@ -0,0 +1,90 @@
+!
+! $HEADER$
+!
+!****************************************************************************
+!
+! MESSAGE PASSING INTERFACE TEST CASE SUITE
+!
+! Copyright IBM Corp. 1995
+!
+! IBM Corp. hereby grants a non-exclusive license to use, copy, modify, and
+! distribute this software for any purpose and without fee provided that the
+! above copyright notice and the following paragraphs appear in all copies.
+!
+! IBM Corp. makes no representation that the test cases comprising this
+! suite are correct or are an accurate representation of any standard.
+!
+! In no event shall IBM be liable to any party for direct, indirect, special
+! incidental, or consequential damage arising out of the use of this software
+! even if IBM Corp. has been advised of the possibility of such damage.
+!
+! IBM CORP. SPECIFICALLY DISCLAIMS ANY WARRANTIES INCLUDING, BUT NOT LIMITED
+! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+! PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" BASIS AND IBM
+! CORP. HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES,
+! ENHANCEMENTS, OR MODIFICATIONS.
+!
+!****************************************************************************
+!
+! These test cases reflect an interpretation of the MPI Standard.  They are
+! are, in most cases, unit tests of specific MPI behaviors.  If a user of any
+! test case from this set believes that the MPI Standard requires behavior
+! different than that implied by the test case we would appreciate feedback.
+!
+! Comments may be sent to:
+!    Richard Treumann
+!    treumann@kgn.ibm.com
+!
+!****************************************************************************
+
+program allgather_test
+   use mpi_f08
+   implicit none
+
+   integer, parameter :: MAXLEN = 1000
+   integer, allocatable :: out(:), in(:)
+   integer :: i, j, k
+   integer :: myself, tasks
+   integer :: ierr
+
+   call MPI_Init(ierr)
+   call MPI_Comm_rank(MPI_COMM_WORLD, myself, ierr)
+   call MPI_Comm_size(MPI_COMM_WORLD, tasks, ierr)
+
+   ! Add this section because some os/architectures can't allocate
+   ! this much memory on the stack
+
+   allocate(in(MAXLEN * tasks), out(MAXLEN), stat=ierr)
+   if (ierr /= 0) then
+      write(*,*) "Doh!  Rank ", myself, " was not able to allocate enough memory.  MPI test aborted!"
+      call MPI_Abort(MPI_COMM_WORLD, 1, ierr)
+   end if
+
+   j = 1
+   do while (j <= MAXLEN)
+      do i = 1, j
+         out(i) = myself
+      end do
+
+      call MPI_Allgather(out, j, MPI_INTEGER, in, j, MPI_INTEGER, MPI_COMM_WORLD, ierr)
+
+      do i = 0, tasks - 1
+         do k = 1, j
+            if (in(k + i * j) /= i) then
+               write(*,*) "bad answer (", in(k), ") at index ", k + i * j - 1, &
+                         " of ", j * tasks, " (should be ", i, ")"
+               call MPI_Abort(MPI_COMM_WORLD, 1, ierr)
+            end if
+         end do
+      end do
+
+      j = j * 10
+   end do
+
+   call MPI_Barrier(MPI_COMM_WORLD, ierr)
+   call MPI_Finalize(ierr)
+
+   ! Clean up, 'cause it's the Right Thing to do
+   deallocate(in, out)
+
+end program allgather_test