configury: discover fortran logical false

rather than assuming its '0'/

Signed-off-by: Howard Pritchard <howardp@lanl.gov>

Author: hppritcha

config/ompi_fortran_check_logical_array.m4

@@ -11,6 +11,8 @@ dnl                         All rights reserved.
 dnl Copyright (c) 2011-2012 Cisco Systems, Inc.  All rights reserved.
 dnl Copyright (c) 2015      Research Organization for Information Science
 dnl                         and Technology (RIST). All rights reserved.
+dnl Copyright (c) 2025      Triad National Security, LLC. All rights
+dnl                         reserved.
 dnl $COPYRIGHT$
 dnl
 dnl Additional copyrights may follow
@@ -64,7 +66,7 @@ void ompi_check_f(ompi_fortran_logical_t * logical)
     FILE *f=fopen("conftestval", "w");
     if (!f) exit(1);
 
-    if (logical[[0]] == 0 &&
+    if (logical[[0]] == $ompi_cv_fortran_false_value &&
         logical[[1]] == $ompi_cv_fortran_true_value)
       result = 1;
     fprintf(f, "%d\n", result);

config/ompi_fortran_get_value_true.m4

@@ -11,6 +11,8 @@ dnl                         All rights reserved.
 dnl Copyright (c) 2011-2012 Cisco Systems, Inc.  All rights reserved.
 dnl Copyright (c) 2015      Research Organization for Information Science
 dnl                         and Technology (RIST). All rights reserved.
+dnl Copyright (c) 2025      Triad National Security, LLC. All rights
+dnl                         reserved.
 dnl $COPYRIGHT$
 dnl
 dnl Additional copyrights may follow
@@ -27,9 +29,14 @@ AC_DEFUN([OMPI_FORTRAN_GET_VALUE_TRUE],[
     if test "$ompi_cv_fortran_true_value" = "0" ; then
         unset ompi_cv_fortran_true_value
     fi
+    if test "$ompi_cv_fortran_false_value" = "0" ; then
+        unset ompi_cv_fortran_false_value
+    fi
 
     AS_VAR_PUSHDEF([fortran_true_var],
                    [ompi_cv_fortran_true_value])
+    AS_VAR_PUSHDEF([fortran_false_var],
+                   [ompi_cv_fortran_false_value])
 
     AC_CACHE_CHECK([Fortran value for .TRUE. logical type],
         fortran_true_var,
@@ -98,6 +105,14 @@ EOF
       CALL ompi_print(value)
       end
 EOF
+             cat > conftestf2.f <<EOF
+      program main
+      logical value
+      value=.FALSE.
+      CALL ompi_print(value)
+      end
+EOF
+
 
              #
              # Try the compilation and run.
@@ -114,11 +129,40 @@ EOF
              AS_IF([test "$cross_compiling" = "yes"],
                  [AC_MSG_ERROR([Can not determine value of .TRUE. when cross-compiling])],
                  [OPAL_LOG_COMMAND([./conftest],
-                     [value=`sed 's/  *//' conftestval`],
+                     [tvalue=`sed 's/  *//' conftestval`],
                      [AC_MSG_ERROR([Could not determine value of Fotran .TRUE..  Aborting.])])])
+
+             cat > conftestf.f <<EOF
+      program main
+      logical value
+      value=.FALSE.
+      CALL ompi_print(value)
+      end
+EOF
+
+             #
+             # Try the compilation and run.
+             #
+             OPAL_LOG_COMMAND([$CC $CFLAGS -I. -c conftest.c],
+                 [OPAL_LOG_COMMAND([$FC $FCFLAGS -o conftest conftest.o conftestf.f $LDFLAGS $LIBS],
+                      [happy=1], [happy=0])],
+                 [happy=0])
+
+             AS_IF([test $happy -eq 0 && test $ompi_fortran_happy -eq 1],
+                          [AC_MSG_ERROR([Could not compile Fortran .FALSE. test.  Aborting.])
+                          ])
+
+             AS_IF([test "$cross_compiling" = "yes"],
+                 [AC_MSG_ERROR([Can not determine value of .FALSE. when cross-compiling])],
+                 [OPAL_LOG_COMMAND([./conftest],
+                     [fvalue=`sed 's/  *//' conftestval`],
+                     [AC_MSG_ERROR([Could not determine value of Fotran .FALSE..  Aborting.])])])
          fi
-         AS_VAR_SET(fortran_true_var, [$value])
-         unset value
+         AS_VAR_SET(fortran_true_var, [$tvalue])
+         unset tvalue
+         AS_VAR_SET(fortran_false_var, [$fvalue])
+         unset fvalue
+
         ])
 
     AS_VAR_COPY([ompi_fortran_true_value], [fortran_true_var])
@@ -127,6 +171,13 @@ EOF
         [Fortran value for LOGICAL .TRUE. value])
     AS_VAR_POPDEF([fortran_true_var])
 
+   AS_VAR_COPY([ompi_fortran_false_value], [fortran_false_var])
+    AC_DEFINE_UNQUOTED([OMPI_FORTRAN_VALUE_FALSE],
+        [$ompi_fortran_false_value],
+        [Fortran value for LOGICAL .FALSE. value])
+    AS_VAR_POPDEF([fortran_false_var])
+
+
     unset happy ompi_print_logical_fn
     rm -rf conftest*
 ])dnl