Refs trac:1603
* Significantly improve the check to see if REAL*16 === the back-end C type (i.e., not just in size, but also in representation) * Add a check to see if Intel compiler's _Quad type === REAL*16 * Ensure that on the Sun SPARC with the Sun compilers, we get long double === REAL*16 This commit was SVN r20513. The following Trac tickets were found above: Ticket 1603 --> https://svn.open-mpi.org/trac/ompi/ticket/1603
Этот коммит содержится в:
Jeff Squyres
родитель
9e62cbbfb3
Коммит
c731bb25c0
@ -10,7 +10,7 @@ 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 Cisco Systems, Inc. All rights reserved.
|
||||
dnl Copyright (c) 2008-2009 Cisco Systems, Inc. All rights reserved.
|
||||
dnl $COPYRIGHT$
|
||||
dnl
|
||||
dnl Additional copyrights may follow
|
||||
@ -22,73 +22,47 @@ dnl
|
||||
# ----------------------------------------------------
|
||||
AC_DEFUN([OMPI_F77_CHECK_REAL16_C_EQUIV],[
|
||||
unset happy
|
||||
OMPI_VAR_SCOPE_PUSH([happy define_value msg])
|
||||
unset CFLAGS_save
|
||||
OMPI_VAR_SCOPE_PUSH([happy define_value msg CFLAGS_save])
|
||||
AS_VAR_PUSHDEF([real16_matches_c_var], [ompi_cv_real16_c_equiv])
|
||||
|
||||
msg="in C"
|
||||
AS_IF([test "$OMPI_WANT_F77_BINDINGS" = "1"],
|
||||
[AS_IF([test "$OMPI_HAVE_FORTRAN_REAL16" = "1"],
|
||||
[msg="of $OMPI_FORTRAN_REAL16_C_TYPE"])])
|
||||
AC_CACHE_CHECK([if REAL*16 matches bit representation $msg],
|
||||
real16_matches_c_var,
|
||||
# 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_WANT_F77_BINDINGS" = "1" -a "$OMPI_HAVE_FORTRAN_REAL16" = "1"],[
|
||||
# Make a C function of the Right name
|
||||
OMPI_F77_MAKE_C_FUNCTION([ompi_ac_c_fn], [c])
|
||||
# AC_CACHE_CHECK automatically does its own AC_MSG_CHECKING, so close it out
|
||||
AC_MSG_RESULT([pending])
|
||||
|
||||
# C module
|
||||
cat > conftest_c.c <<EOF
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
#ifdef __cplusplus
|
||||
extern "C" {
|
||||
#endif
|
||||
void $ompi_ac_c_fn($OMPI_FORTRAN_REAL16_C_TYPE *a) {
|
||||
FILE *fp = fopen("conftestval", "w");
|
||||
if (NULL == fp) exit(1);
|
||||
fprintf(fp, "%s\n", (1.1L == *a) ? "yes" : "no");
|
||||
fclose(fp);
|
||||
}
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
#endif
|
||||
EOF
|
||||
|
||||
# Fortran module
|
||||
cat > conftest_f.f <<EOF
|
||||
program bogus
|
||||
REAL*16 :: foo
|
||||
foo = 1.1
|
||||
call c(foo)
|
||||
end program bogus
|
||||
EOF
|
||||
rm -f conftestval
|
||||
# Compile and link
|
||||
OMPI_LOG_COMMAND([$CC $CFLAGS -I. -c conftest_c.c],
|
||||
[OMPI_LOG_COMMAND([$F77 $FFLAGS conftest_f.f conftest_c.o -o conftest $LDFLAGS $LIBS],
|
||||
[happy="yes"], [happy="no"])], [happy="no"])
|
||||
# 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_F77_CHECK_REAL16_EQUIV_TYPE([$OMPI_FORTRAN_REAL16_C_TYPE], [L])
|
||||
# If that didn't work, see if we have a compiler-specific
|
||||
# time that might work
|
||||
AS_IF([test "$happy" = "no"],
|
||||
[AC_MSG_RESULT([Error!])
|
||||
AC_MSG_ERROR([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 "$cross_compiling" = "yes"],
|
||||
[AC_MSG_RESULT([Error!])
|
||||
AC_MSG_ERROR([Can not determine if REAL*16 bit-matches C if cross compiling])],
|
||||
[OMPI_LOG_COMMAND([./conftest],
|
||||
[AS_VAR_SET(real16_matches_c_var, [`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*
|
||||
[AC_MSG_RESULT([$happy])
|
||||
# Intel compiler has a special type that should work
|
||||
AS_IF([test "$ompi_cv_c_compiler_vendor" = "intel"],
|
||||
[AC_MSG_CHECKING([if intel compiler _Quad == REAL*16])
|
||||
CFLAGS_save="$CFLAGS"
|
||||
CFLAGS="$CFLAGS -Qoption,cpp,--extended_float_types"
|
||||
OMPI_UNIQ([CFLAGS])
|
||||
OMPI_F77_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])])
|
||||
])
|
||||
# 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_WANT_F77_BINDINGS" = "0"],
|
||||
[msg="no (no Fortran bindings)"],
|
||||
[msg="no (no REAL*16)"])
|
||||
[msg="skipped (no Fortran MPI bindings)"],
|
||||
[msg="skipped (no REAL*16)"])
|
||||
AS_VAR_SET(real16_matches_c_var, [$msg])
|
||||
])
|
||||
])
|
||||
@ -100,7 +74,69 @@ EOF
|
||||
[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])
|
||||
AC_DEFINE_UNQUOTED([OMPI_REAL16_MATCHES_C], [$define_value],
|
||||
[Whether Fortran REAL*16 matches the bit format of the equivalent C type])
|
||||
OMPI_VAR_SCOPE_POP
|
||||
])
|
||||
|
||||
|
||||
# OMPI_F77_CHECK_REAL16_C_EQUIV_TYPE(type, suffix)
|
||||
# ----------------------------------------------------
|
||||
AC_DEFUN([OMPI_F77_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) {
|
||||
FILE *fp = fopen("conftestval", "w");
|
||||
if (NULL == fp) exit(1);
|
||||
fprintf(fp, "%s\n", (1.1$2 == *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
|
||||
foo = 1.1
|
||||
call c(foo)
|
||||
end program bogus
|
||||
EOF
|
||||
rm -f conftestval
|
||||
# Compile and link
|
||||
OMPI_LOG_COMMAND([$CC $CFLAGS -I. -c conftest_c.c],
|
||||
[OMPI_LOG_COMMAND([$F77 $FFLAGS conftest_f.f conftest_c.o -o conftest $LDFLAGS $LIBS],
|
||||
[happy="yes"], [happy="no"])], [happy="no"])
|
||||
AS_IF([test "$happy" = "no"],
|
||||
[AC_MSG_RESULT([Error!])
|
||||
AC_MSG_ERROR([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 "$cross_compiling" = "yes"],
|
||||
[AC_MSG_RESULT([Error!])
|
||||
AC_MSG_ERROR([Can not determine if REAL*16 bit-matches C if cross compiling])],
|
||||
[OMPI_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*
|
||||
])
|
||||
|
||||
Загрузка…
Ссылка в новой задаче
Block a user