Initialize variable declared by OMPI_ARRAY_NAME_DECL

The compiler will otherwise complain about potentially uninitialized variables.

Signed-off-by: Joseph Schuchart <[email protected]>

Author: devreal

ompi/mpi/fortran/base/fint_2_int.h

@@ -33,7 +33,7 @@
  */
 
 #if OMPI_SIZEOF_FORTRAN_INTEGER == SIZEOF_INT
-  #define OMPI_ARRAY_NAME_DECL(a) int *c_##a
+  #define OMPI_ARRAY_NAME_DECL(a) int *c_##a = NULL
   #define OMPI_2_DIM_ARRAY_NAME_DECL(a, dim2) int (*c_##a)[dim2]
   #define OMPI_SINGLE_NAME_DECL(a)
   #define OMPI_ARRAY_NAME_CONVERT(a) c_##a
@@ -50,7 +50,7 @@
   #define OMPI_ARRAY_INT_2_FINT(in, n)
 
 #elif OMPI_SIZEOF_FORTRAN_INTEGER > SIZEOF_INT
-  #define OMPI_ARRAY_NAME_DECL(a) int *c_##a
+  #define OMPI_ARRAY_NAME_DECL(a) int *c_##a = NULL
   #define OMPI_2_DIM_ARRAY_NAME_DECL(a, dim2) int (*c_##a)[dim2], dim2_index
   #define OMPI_SINGLE_NAME_DECL(a) int c_##a
   #define OMPI_ARRAY_NAME_CONVERT(a) c_##a
@@ -107,7 +107,7 @@
       free(OMPI_ARRAY_NAME_CONVERT(in)); \
     } while (0)
 #else /* int > MPI_Fint  */
-  #define OMPI_ARRAY_NAME_DECL(a) int *c_##a
+  #define OMPI_ARRAY_NAME_DECL(a) int *c_##a = NULL
   #define OMPI_2_DIM_ARRAY_NAME_DECL(a, dim2) int (*c_##a)[dim2], dim2_index
   #define OMPI_SINGLE_NAME_DECL(a) int c_##a
   #define OMPI_ARRAY_NAME_CONVERT(a) c_##a