fortran bindings: correctly handle opal_debug

hppritcha · hppritcha · commit 017d3f9f6aad · 2025-03-17T15:19:36.000-06:00
Signed-off-by: Howard Pritchard &lt;howardp@lanl.gov&gt;
diff --git a/ompi/mpi/fortran/use-mpi-f08/base/ts.c b/ompi/mpi/fortran/use-mpi-f08/base/ts.c
@@ -28,7 +28,7 @@ int ompi_ts_create_datatype(CFI_cdesc_t *cdesc, int oldcount, MPI_Datatype oldty
     int extent;
     int i, j;
 
-#ifdef OPAL_ENABLE_DEBUG
+#if OPAL_ENABLE_DEBUG
     {
         size_t size;
         assert(cdesc->rank <= MAX_RANK);

Original file line number	Diff line number	Diff line change
`@@ -28,7 +28,7 @@ int ompi_ts_create_datatype(CFI_cdesc_t *cdesc, int oldcount, MPI_Datatype oldty`
`28`	`28`	`int extent;`
`29`	`29`	`int i, j;`
`30`	`30`
`31`		`-#ifdef OPAL_ENABLE_DEBUG`
	`31`	`+#if OPAL_ENABLE_DEBUG`
`32`	`32`	`{`
`33`	`33`	`size_t size;`
`34`	`34`	`assert(cdesc->rank <= MAX_RANK);`