openmpi/config/ompi_fortran_check_real16_c_equiv.m4

dnl -*- shell-script -*-
dnl
dnl Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
dnl                         University Research and Technology
dnl                         Corporation.  All rights reserved.
dnl Copyright (c) 2004-2005 The University of Tennessee and The University
dnl                         of Tennessee Research Foundation.  All rights
dnl                         reserved.
dnl Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
dnl                         University of Stuttgart.  All rights reserved.
dnl Copyright (c) 2004-2005 The Regents of the University of California.
dnl                         All rights reserved.
dnl Copyright (c) 2008-2016 Cisco Systems, Inc.  All rights reserved.
dnl Copyright (c) 2012      Oracle and/or its affiliates.  All rights reserved.
dnl Copyright (c) 2015      Research Organization for Information Science
dnl                         and Technology (RIST). All rights reserved.
dnl $COPYRIGHT$
dnl
dnl Additional copyrights may follow
dnl
dnl $HEADER$
dnl

# OMPI_FORTRAN_CHECK_REAL16_C_EQUIV
# ----------------------------------------------------
AC_DEFUN([OMPI_FORTRAN_CHECK_REAL16_C_EQUIV],[
    unset happy
    OPAL_VAR_SCOPE_PUSH([happy define_value msg CFLAGS_save])
    AS_VAR_PUSHDEF([real16_matches_c_var], [ompi_cv_real16_c_equiv])

    # We have to do this as a cache check for cross-compilation platforms
    AC_CACHE_CHECK([for C type matching bit representation of REAL*16],
        real16_matches_c_var,
        [AS_IF([test "$OMPI_TRY_FORTRAN_BINDINGS" -gt "$OMPI_FORTRAN_NO_BINDINGS" && \
                test "$OMPI_HAVE_FORTRAN_REAL16" = "1"],
               [
                # AC_CACHE_CHECK automatically does its own AC_MSG_CHECKING, so close it out
                AC_MSG_RESULT([pending])

                # First check the type that we found was the same length in C
                AC_MSG_CHECKING([if $OMPI_FORTRAN_REAL16_C_TYPE == REAL*16])
                OMPI_FORTRAN_CHECK_REAL16_EQUIV_TYPE([$OMPI_FORTRAN_REAL16_C_TYPE], [L])
                # If that didn't work, see if we have a compiler-specific
                # type that might work
                AS_IF([test "$happy" = "no"],
                      [AC_MSG_RESULT([$happy])
                       # Intel compiler has a special type that should work
                       AS_IF([test "$opal_cv_c_compiler_vendor" = "intel"],
                             [AC_MSG_CHECKING([if intel compiler _Quad == REAL*16])
                              CFLAGS_save="$CFLAGS"
                              CFLAGS="$CFLAGS -Qoption,cpp,--extended_float_types"
                              OPAL_FLAGS_UNIQ([CFLAGS])
                              OMPI_FORTRAN_CHECK_REAL16_EQUIV_TYPE([_Quad], [q])
                              AS_IF([test "$happy" = "yes"],
                                    [OMPI_FORTRAN_REAL16_C_TYPE="_Quad"
                                     AC_MSG_RESULT([works!])],
                                    [CFLAGS="$CFLAGS_save"
                                     AC_MSG_RESULT([does not work])])
                             ])
                       AS_IF([test "$opal_cv_c_compiler_vendor" = "gnu" && test "$ac_cv_type___float128" = "yes"],
                             [AC_MSG_CHECKING([if gnu compiler __float128 == REAL*16])
                              OPAL_FLAGS_UNIQ([CFLAGS])
                              OMPI_FORTRAN_CHECK_REAL16_EQUIV_TYPE([__float128], [q])
                              AS_IF([test "$happy" = "yes"],
                                    [OMPI_FORTRAN_REAL16_C_TYPE="__float128"
                                     AC_MSG_RESULT([works!])],
                                    [AC_MSG_RESULT([does not work])])
                             ])
                       # We have to [re-]print a new message here, because
                       # AC_CACHE_CHECK will automatically AC_MSG_RESULT
                       AC_MSG_CHECKING([for C type matching bit representation of REAL*16])
                      ])
                AS_VAR_SET(real16_matches_c_var, [$happy])
               ],[
                # No fortran bindings or no REAL*16
                AS_IF([test "$OMPI_TRY_FORTRAN_BINDINGS" = "$OMPI_FORTRAN_NO_BINDINGS"],
                      [msg="skipped (no Fortran MPI bindings)"],
                      [msg="skipped (no REAL*16)"])
                AS_VAR_SET(real16_matches_c_var, [$msg])
                ])
        ])

    AS_VAR_COPY([ompi_real16_matches_c], [real16_matches_c_var])
    AS_VAR_POPDEF([real16_matches_c_var])

    AS_IF([test "$ompi_real16_matches_c" = "yes"],
          [define_value=1],
          [define_value=0
           AC_MSG_WARN([MPI_REAL16 and MPI_COMPLEX32 support have been disabled])])
    AC_DEFINE_UNQUOTED([OMPI_REAL16_MATCHES_C], [$define_value],
                       [Whether Fortran REAL*16 matches the bit format of the equivalent C type])
    OPAL_VAR_SCOPE_POP
])


# OMPI_FORTRAN_CHECK_REAL16_C_EQUIV_TYPE(type, suffix)
# ----------------------------------------------------
AC_DEFUN([OMPI_FORTRAN_CHECK_REAL16_EQUIV_TYPE],[
    # C module
    cat > conftest_c.c <<EOF
#include <stdio.h>
#include <stdlib.h>

#ifdef __cplusplus
extern "C" {
#endif

void c_backend($1 *a) {
    $1 foo = 11;
    FILE *fp = fopen("conftestval", "w");
    if (NULL == fp) exit(1);
    foo = 1 / foo;
    fprintf(fp, "%s\n", (foo == *a) ? "yes" : "no");
    fclose(fp);
}

void C($1 *a) { c_backend(a); }
void c($1 *a) { c_backend(a); }
void c_($1 *a) { c_backend(a); }
/* JMS I'm pretty sure this one will never happen...? */
void c__($1 *a) { c_backend(a); }
#ifdef __cplusplus
}
#endif
EOF

    # Fortran module
    cat > conftest_f.f <<EOF
        program bogus
        REAL*16 :: foo = 11
        foo = 1 / foo
        call c(foo)
        end program bogus
EOF
    rm -f conftestval
    # Compile and link
    OPAL_LOG_COMMAND([$CC $CFLAGS -I. -c conftest_c.c],
        [OPAL_LOG_COMMAND([$FC $FCFLAGS conftest_f.f conftest_c.o -o conftest $LDFLAGS $LIBS],
            [happy="yes"], [happy="no"])], [happy="no"])
    AS_IF([test "$happy" = "no"],
        [AC_MSG_RESULT([Could not determine if REAL*16 bit-matches C type])],
        # If it worked so far, try running to see what we get
        [AS_IF([test "$happy" = "yes" && test "$cross_compiling" = "yes"],
             [AC_MSG_RESULT([Error!])
              AC_MSG_ERROR([Can not determine if REAL*16 bit-matches C if cross compiling])],
             [OPAL_LOG_COMMAND([./conftest],
                 [happy=`cat conftestval`],
                 [AC_MSG_RESULT([Error!])
                  AC_MSG_ERROR([Could not determine if REAL*16 bit-matches C type])
                 ])
             ])
         ])

    # All done; whack tmp files
    rm -rf conftest*
])