fortran: some pr feedback

Signed-off-by: Howard Pritchard <[email protected]>

Author: hppritcha

ompi/mpi/fortran/use-mpi-f08/base/bigcount.h

@@ -28,6 +28,7 @@
     do { \
         if ((array) != (tmp_array) && NULL != (tmp_array)) { \
             free(tmp_array); \
+            tmp_array = NULL; \
         } \
     } while (0)
 

ompi/mpi/fortran/use-mpi-f08/base/ts.c

@@ -80,6 +80,7 @@ int ompi_ts_create_datatype(CFI_cdesc_t *cdesc, int oldcount, MPI_Datatype oldty
         *newtype = types[i];
         MPI_Type_commit(newtype);
         last = i - 1; /* To avoid freeing newtype */
+        mpi_errno = MPI_SUCCESS;
     } else {
         /* If # of elements given by "oldcount oldtype" is bigger than
          * what cdesc describles, then we will reach here.