missing ampersand for ptr_mpipri* use in fortran define

cea-hpc · Nov 27, 2023 · b37b2dd · b37b2dd
1 parent 8b969ed
commit b37b2dd
Show file tree

Hide file tree

Showing 6 changed files with 42 additions and 42 deletions.
diff --git a/src/preload/header/INTEL_INTEL/wrapper_f.h b/src/preload/header/INTEL_INTEL/wrapper_f.h
@@ -17,15 +17,15 @@ int *ptr_mpifcmb5_;
 int *ptr_mpifcmb9_;
 #define R_f_MPI_WEIGHTS_EMPTY (((int*)ptr_mpifcmb9_))
 extern int *ptr_mpipriv1_;
-#define R_f_MPI_BOTTOM (((int*)ptr_mpipriv1_[0]))
-#define R_f_MPI_IN_PLACE (((int*)ptr_mpipriv1_[1]))
-#define R_f_MPI_STATUS_IGNORE (((int*)ptr_mpipriv1_[2]))
+#define R_f_MPI_BOTTOM (((int*)&ptr_mpipriv1_[0]))
+#define R_f_MPI_IN_PLACE (((int*)&ptr_mpipriv1_[1]))
+#define R_f_MPI_STATUS_IGNORE (((int*)&ptr_mpipriv1_[2]))
 extern int *ptr_mpipriv2_;
-#define R_f_MPI_STATUSES_IGNORE (((int*)ptr_mpipriv2_[0]))
-#define R_f_MPI_ERRCODES_IGNORE (((int*)ptr_mpipriv2_[1]))
+#define R_f_MPI_STATUSES_IGNORE (((int*)&ptr_mpipriv2_[0]))
+#define R_f_MPI_ERRCODES_IGNORE (((int*)&ptr_mpipriv2_[1]))
 extern int *ptr_mpiprivc_;
-#define R_f_MPI_ARGVS_NULL (((int*)ptr_mpiprivc_[0]))
-#define R_f_MPI_ARGV_NULL (((int*)ptr_mpiprivc_[1]))
+#define R_f_MPI_ARGVS_NULL (((int*)&ptr_mpiprivc_[0]))
+#define R_f_MPI_ARGV_NULL (((int*)&ptr_mpiprivc_[1]))
 //############################# Wi4MPI License ###########################
 //# `04/04/2016`                                                         #
 //# Copyright or (C) or Copr. Commissariat a l'Energie Atomique         #

diff --git a/src/preload/header/INTEL_MPICH/wrapper_f.h b/src/preload/header/INTEL_MPICH/wrapper_f.h
@@ -17,15 +17,15 @@ int *ptr_mpifcmb5_;
 int *ptr_mpifcmb9_;
 #define R_f_MPI_WEIGHTS_EMPTY (((int*)ptr_mpifcmb9_))
 extern int *ptr_mpipriv1_;
-#define R_f_MPI_BOTTOM (((int*)ptr_mpipriv1_[0]))
-#define R_f_MPI_IN_PLACE (((int*)ptr_mpipriv1_[1]))
-#define R_f_MPI_STATUS_IGNORE (((int*)ptr_mpipriv1_[2]))
+#define R_f_MPI_BOTTOM (((int*)&ptr_mpipriv1_[0]))
+#define R_f_MPI_IN_PLACE (((int*)&ptr_mpipriv1_[1]))
+#define R_f_MPI_STATUS_IGNORE (((int*)&ptr_mpipriv1_[2]))
 extern int *ptr_mpipriv2_;
-#define R_f_MPI_STATUSES_IGNORE (((int*)ptr_mpipriv2_[0]))
-#define R_f_MPI_ERRCODES_IGNORE (((int*)ptr_mpipriv2_[1]))
+#define R_f_MPI_STATUSES_IGNORE (((int*)&ptr_mpipriv2_[0]))
+#define R_f_MPI_ERRCODES_IGNORE (((int*)&ptr_mpipriv2_[1]))
 extern int *ptr_mpiprivc_;
-#define R_f_MPI_ARGVS_NULL (((int*)ptr_mpiprivc_[0]))
-#define R_f_MPI_ARGV_NULL (((int*)ptr_mpiprivc_[1]))
+#define R_f_MPI_ARGVS_NULL (((int*)&ptr_mpiprivc_[0]))
+#define R_f_MPI_ARGV_NULL (((int*)&ptr_mpiprivc_[1]))
 //############################# Wi4MPI License ###########################
 //# `04/04/2016`                                                         #
 //# Copyright or (C) or Copr. Commissariat a l'Energie Atomique         #

diff --git a/src/preload/header/MPICH_INTEL/wrapper_f.h b/src/preload/header/MPICH_INTEL/wrapper_f.h
@@ -17,15 +17,15 @@ int *ptr_mpifcmb5_;
 int *ptr_mpifcmb9_;
 #define R_f_MPI_WEIGHTS_EMPTY (((int*)ptr_mpifcmb9_))
 extern int *ptr_mpipriv1_;
-#define R_f_MPI_BOTTOM (((int*)ptr_mpipriv1_[0]))
-#define R_f_MPI_IN_PLACE (((int*)ptr_mpipriv1_[1]))
-#define R_f_MPI_STATUS_IGNORE (((int*)ptr_mpipriv1_[2]))
+#define R_f_MPI_BOTTOM (((int*)&ptr_mpipriv1_[0]))
+#define R_f_MPI_IN_PLACE (((int*)&ptr_mpipriv1_[1]))
+#define R_f_MPI_STATUS_IGNORE (((int*)&ptr_mpipriv1_[2]))
 extern int *ptr_mpipriv2_;
-#define R_f_MPI_STATUSES_IGNORE (((int*)ptr_mpipriv2_[0]))
-#define R_f_MPI_ERRCODES_IGNORE (((int*)ptr_mpipriv2_[1]))
+#define R_f_MPI_STATUSES_IGNORE (((int*)&ptr_mpipriv2_[0]))
+#define R_f_MPI_ERRCODES_IGNORE (((int*)&ptr_mpipriv2_[1]))
 extern int *ptr_mpiprivc_;
-#define R_f_MPI_ARGVS_NULL (((int*)ptr_mpiprivc_[0]))
-#define R_f_MPI_ARGV_NULL (((int*)ptr_mpiprivc_[1]))
+#define R_f_MPI_ARGVS_NULL (((int*)&ptr_mpiprivc_[0]))
+#define R_f_MPI_ARGV_NULL (((int*)&ptr_mpiprivc_[1]))
 //############################# Wi4MPI License ###########################
 //# `04/04/2016`                                                         #
 //# Copyright or (C) or Copr. Commissariat a l'Energie Atomique         #

diff --git a/src/preload/header/MPICH_MPICH/wrapper_f.h b/src/preload/header/MPICH_MPICH/wrapper_f.h
@@ -17,15 +17,15 @@ int *ptr_mpifcmb5_;
 int *ptr_mpifcmb9_;
 #define R_f_MPI_WEIGHTS_EMPTY (((int*)ptr_mpifcmb9_))
 extern int *ptr_mpipriv1_;
-#define R_f_MPI_BOTTOM (((int*)ptr_mpipriv1_[0]))
-#define R_f_MPI_IN_PLACE (((int*)ptr_mpipriv1_[1]))
-#define R_f_MPI_STATUS_IGNORE (((int*)ptr_mpipriv1_[2]))
+#define R_f_MPI_BOTTOM (((int*)&ptr_mpipriv1_[0]))
+#define R_f_MPI_IN_PLACE (((int*)&ptr_mpipriv1_[1]))
+#define R_f_MPI_STATUS_IGNORE (((int*)&ptr_mpipriv1_[2]))
 extern int *ptr_mpipriv2_;
-#define R_f_MPI_STATUSES_IGNORE (((int*)ptr_mpipriv2_[0]))
-#define R_f_MPI_ERRCODES_IGNORE (((int*)ptr_mpipriv2_[1]))
+#define R_f_MPI_STATUSES_IGNORE (((int*)&ptr_mpipriv2_[0]))
+#define R_f_MPI_ERRCODES_IGNORE (((int*)&ptr_mpipriv2_[1]))
 extern int *ptr_mpiprivc_;
-#define R_f_MPI_ARGVS_NULL (((int*)ptr_mpiprivc_[0]))
-#define R_f_MPI_ARGV_NULL (((int*)ptr_mpiprivc_[1]))
+#define R_f_MPI_ARGVS_NULL (((int*)&ptr_mpiprivc_[0]))
+#define R_f_MPI_ARGV_NULL (((int*)&ptr_mpiprivc_[1]))
 //############################# Wi4MPI License ###########################
 //# `04/04/2016`                                                         #
 //# Copyright or (C) or Copr. Commissariat a l'Energie Atomique         #

diff --git a/src/preload/header/OMPI_INTEL/wrapper_f.h b/src/preload/header/OMPI_INTEL/wrapper_f.h
@@ -21,15 +21,15 @@ int *ptr_mpifcmb5_;
 int *ptr_mpifcmb9_;
 #define R_f_MPI_WEIGHTS_EMPTY (((int*)ptr_mpifcmb9_))
 extern int *ptr_mpipriv1_;
-#define R_f_MPI_BOTTOM (((int*)ptr_mpipriv1_[0]))
-#define R_f_MPI_IN_PLACE (((int*)ptr_mpipriv1_[1]))
-#define R_f_MPI_STATUS_IGNORE (((int*)ptr_mpipriv1_[2]))
+#define R_f_MPI_BOTTOM (((int*)&ptr_mpipriv1_[0]))
+#define R_f_MPI_IN_PLACE (((int*)&ptr_mpipriv1_[1]))
+#define R_f_MPI_STATUS_IGNORE (((int*)&ptr_mpipriv1_[2]))
 extern int *ptr_mpipriv2_;
-#define R_f_MPI_STATUSES_IGNORE (((int*)ptr_mpipriv2_[0]))
-#define R_f_MPI_ERRCODES_IGNORE (((int*)ptr_mpipriv2_[1]))
+#define R_f_MPI_STATUSES_IGNORE (((int*)&ptr_mpipriv2_[0]))
+#define R_f_MPI_ERRCODES_IGNORE (((int*)&ptr_mpipriv2_[1]))
 extern int *ptr_mpiprivc_;
-#define R_f_MPI_ARGVS_NULL (((int*)ptr_mpiprivc_[0]))
-#define R_f_MPI_ARGV_NULL (((int*)ptr_mpiprivc_[1]))
+#define R_f_MPI_ARGVS_NULL (((int*)&ptr_mpiprivc_[0]))
+#define R_f_MPI_ARGV_NULL (((int*)&ptr_mpiprivc_[1]))
 //############################# Wi4MPI License ###########################
 //# `04/04/2016`                                                         #
 //# Copyright or (C) or Copr. Commissariat a l'Energie Atomique         #

diff --git a/src/preload/header/OMPI_MPICH/wrapper_f.h b/src/preload/header/OMPI_MPICH/wrapper_f.h
@@ -21,15 +21,15 @@ int *ptr_mpifcmb5_;
 int *ptr_mpifcmb9_;
 #define R_f_MPI_WEIGHTS_EMPTY (((int*)ptr_mpifcmb9_))
 extern int *ptr_mpipriv1_;
-#define R_f_MPI_BOTTOM (((int*)ptr_mpipriv1_[0]))
-#define R_f_MPI_IN_PLACE (((int*)ptr_mpipriv1_[1]))
-#define R_f_MPI_STATUS_IGNORE (((int*)ptr_mpipriv1_[2]))
+#define R_f_MPI_BOTTOM (((int*)&ptr_mpipriv1_[0]))
+#define R_f_MPI_IN_PLACE (((int*)&ptr_mpipriv1_[1]))
+#define R_f_MPI_STATUS_IGNORE (((int*)&ptr_mpipriv1_[2]))
 extern int *ptr_mpipriv2_;
-#define R_f_MPI_STATUSES_IGNORE (((int*)ptr_mpipriv2_[0]))
-#define R_f_MPI_ERRCODES_IGNORE (((int*)ptr_mpipriv2_[1]))
+#define R_f_MPI_STATUSES_IGNORE (((int*)&ptr_mpipriv2_[0]))
+#define R_f_MPI_ERRCODES_IGNORE (((int*)&ptr_mpipriv2_[1]))
 extern int *ptr_mpiprivc_;
-#define R_f_MPI_ARGVS_NULL (((int*)ptr_mpiprivc_[0]))
-#define R_f_MPI_ARGV_NULL (((int*)ptr_mpiprivc_[1]))
+#define R_f_MPI_ARGVS_NULL (((int*)&ptr_mpiprivc_[0]))
+#define R_f_MPI_ARGV_NULL (((int*)&ptr_mpiprivc_[1]))
 //############################# Wi4MPI License ###########################
 //# `04/04/2016`                                                         #
 //# Copyright or (C) or Copr. Commissariat a l'Energie Atomique         #