A break from writing: fix the bug that Brian hacked around for me.
Ensure that OMPI_F77_* are always defined, even if a) a f77 compiler is not found, or b) the user disables the f77 MPI bindings. This commit was SVN r2618.
Этот коммит содержится в:
родитель
4fde8045b3
Коммит
0ed4c8f663
@ -11,17 +11,24 @@ ompi_fortran_single_underscore=0
|
||||
ompi_fortran_caps=0
|
||||
ompi_fortran_plain=0
|
||||
|
||||
cat > conftestf.f <<EOF
|
||||
# If we didn't find an f77 compiler, or if we don't want the f77
|
||||
# bindings, just leave everything hardwired to 0. Otherwise, do the
|
||||
# real test.
|
||||
|
||||
if test "$1" = "none" -o "$OMPI_WANT_F77_BINDINGS" = "0"; then
|
||||
AC_MSG_RESULT([no Fortran 77 bindings -- skipped])
|
||||
else
|
||||
cat > conftestf.f <<EOF
|
||||
subroutine FOO_bar(a)
|
||||
integer a
|
||||
a = 1
|
||||
return
|
||||
end
|
||||
EOF
|
||||
$1 $FFLAGS -c conftestf.f 1>&5 2>&1
|
||||
if test ! -s conftestf.o; then
|
||||
$1 $FFLAGS -c conftestf.f 1>&5 2>&1
|
||||
if test ! -s conftestf.o; then
|
||||
AC_MSG_WARN(unable to produce an object file testing F77 compiler)
|
||||
else
|
||||
else
|
||||
nm conftestf.o | grep foo_bar__ > /dev/null 2>&1
|
||||
if test $? = "0"; then
|
||||
AC_MSG_RESULT([double underscore])
|
||||
@ -34,10 +41,10 @@ else
|
||||
ompi_fortran_single_underscore=1
|
||||
ompi_ac_singleunder=y
|
||||
else
|
||||
# We may get into trouble here if we start accepting mixed
|
||||
# case compilers -- we may need to have caps underscore,
|
||||
# or caps double underscore, for example. But we haven't
|
||||
# found any that require that yet. :-)
|
||||
# We may get into trouble here if we start accepting
|
||||
# mixed case compilers -- we may need to have caps
|
||||
# underscore, or caps double underscore, for example.
|
||||
# But we haven't found any that require that yet. :-)
|
||||
nm conftestf.o | grep FOO_bar > /dev/null 2>&1
|
||||
if test $? = "0"; then
|
||||
AC_MSG_RESULT([mixed case, so FORTRANCAPS])
|
||||
@ -63,6 +70,7 @@ else
|
||||
fi
|
||||
fi
|
||||
fi
|
||||
fi
|
||||
fi
|
||||
|
||||
AC_DEFINE_UNQUOTED(OMPI_F77_DOUBLE_UNDERSCORE,
|
||||
|
@ -297,9 +297,7 @@ OMPI_ALIGNMENT_FORTRAN_COMPLEX=0
|
||||
OMPI_ALIGNMENT_FORTRAN_DBLCOMPLEX=0
|
||||
|
||||
OMPI_SETUP_F77
|
||||
if test "$OMPI_F77" != "none" ; then
|
||||
OMPI_F77_FIND_EXT_SYMBOL_CONVENTION($OMPI_F77)
|
||||
fi
|
||||
OMPI_F77_FIND_EXT_SYMBOL_CONVENTION($OMPI_F77)
|
||||
|
||||
# Even if we don't want fortran support, we have to have a size for
|
||||
# INTEGER because it's needed to define MPI_Fint, which is part of
|
||||
|
@ -275,16 +275,12 @@ void ompi_info::do_arch(ompi_cmd_line_t *cmd_line)
|
||||
//
|
||||
void ompi_info::do_config(bool want_all)
|
||||
{
|
||||
#if OMPI_WANT_F77_BINDINGS
|
||||
const string f77(string("yes (") +
|
||||
const string f77(OMPI_WANT_F77_BINDINGS ? string("yes (") +
|
||||
(OMPI_HAVE_WEAK_SYMBOLS ? "all" :
|
||||
(OMPI_F77_CAPS ? "caps" :
|
||||
(OMPI_F77_PLAIN ? "lower case" :
|
||||
(OMPI_F77_SINGLE_UNDERSCORE ? "single underscore" :
|
||||
"double underscore")))) + string(")"));
|
||||
#else
|
||||
const string f77("no");
|
||||
#endif
|
||||
"double underscore")))) + string(")"): "no");
|
||||
const string f90(OMPI_WANT_F90_BINDINGS ? "yes" : "no");
|
||||
const string threads(OMPI_HAVE_SOLARIS_THREADS ? "solaris" :
|
||||
(OMPI_HAVE_POSIX_THREADS ? "posix" : "no"));
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user