fix mpi struct bug with gcc and remove mpp test

Author: rem1776

offloading/metadata_transfer.F90

@@ -126,7 +126,7 @@ subroutine fms_metadata_transfer_init(this, dtype)
     !lengths = (/1, 1, 1, ATTR_NAME_MAX_LENGTH, ATTR_VALUE_MAX_LENGTH/)
     lengths = (/1, 1, ATTR_NAME_MAX_LENGTH, ATTR_NAME_MAX_LENGTH, ATTR_VALUE_MAX_LENGTH/)
 
-    call MPI_Type_create_struct(5, lengths, displacements, types, mpi_id, ierror)
+    call MPI_Type_create_struct(4, lengths, displacements, types, mpi_id, ierror)
     if(ierror /= MPI_SUCCESS) then
       call mpp_error(FATAL, "fms_metadata_transfer_init: MPI_Type_create_struct failed")
     end if

test_fms/offloading/Makefile.am

@@ -29,11 +29,10 @@ AM_CPPFLAGS = -I${top_srcdir}/include -I$(MODDIR)
 LDADD = ${top_builddir}/libFMS/libFMS.la
 
 # Build this test program.
-check_PROGRAMS = test_io_offloading test_mpp_redistribute test_metadata_transfer
+check_PROGRAMS = test_io_offloading test_metadata_transfer
 
 # This is the source code for the test.
 test_io_offloading_SOURCES = test_io_offloading.F90
-test_mpp_redistribute_SOURCES = test_mpp_redistribute.F90
 test_metadata_transfer_SOURCES= test_metadata_transfer.F90
 
 # Run the test program.

test_fms/offloading/test_io_offloading.sh

@@ -34,8 +34,4 @@ test_expect_success "test metadata transfer" '
   mpirun -n 4 ./test_metadata_transfer
 '
 
-test_expect_success "test mpp redistribute" '
-  mpirun -n 7 ./test_mpp_redistribute
-'
-
 test_done