2005-07-26 21:21:31 +04:00
|
|
|
dnl -*- shell-script -*-
|
|
|
|
dnl
|
2006-02-12 18:11:36 +03:00
|
|
|
dnl Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
|
2005-11-05 22:57:48 +03:00
|
|
|
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.
|
2005-07-26 21:21:31 +04:00
|
|
|
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$
|
|
|
|
dnl
|
|
|
|
dnl Additional copyrights may follow
|
|
|
|
dnl
|
|
|
|
dnl $HEADER$
|
|
|
|
dnl
|
|
|
|
|
2006-02-12 18:11:36 +03:00
|
|
|
# OMPI_F90_GET_INT_KIND(MPI name, decimal range, variable to set)
|
|
|
|
# ---------------------------------------------------------------
|
2005-07-26 21:21:31 +04:00
|
|
|
AC_DEFUN([OMPI_F90_GET_INT_KIND],[
|
2006-02-12 18:11:36 +03:00
|
|
|
AS_VAR_PUSHDEF([type_var], [ompi_cv_f90_int_kind_$2])
|
2005-07-26 21:21:31 +04:00
|
|
|
|
2006-02-12 18:11:36 +03:00
|
|
|
AC_CACHE_CHECK([Fortran 90 kind of $1 (selected_int_kind($2))],
|
|
|
|
type_var,
|
|
|
|
[cat > conftestf.f90 <<EOF
|
|
|
|
program f90findintkind
|
2005-07-26 21:21:31 +04:00
|
|
|
open(8, file="conftestval")
|
2006-02-12 18:11:36 +03:00
|
|
|
write(8, fmt="(I5)") selected_int_kind($2)
|
2005-07-26 21:21:31 +04:00
|
|
|
close(8)
|
|
|
|
end program
|
|
|
|
EOF
|
|
|
|
|
2006-02-12 18:11:36 +03:00
|
|
|
# Try to compile
|
|
|
|
OMPI_LOG_COMMAND([$FC $FCFLAGS $FCFLAGS_f90 -o conftest conftestf.f90 $LDFLAGS $LIBS],
|
|
|
|
[happy="yes"], [happy="no"])
|
|
|
|
|
|
|
|
if test "$happy" = "no"; then
|
|
|
|
OMPI_LOG_MSG([here is the fortran 90 program:], 1)
|
|
|
|
OMPI_LOG_FILE([conftestf.f90])
|
|
|
|
AC_MSG_WARN([Could not kind of selected_int_kind($1)])
|
|
|
|
AC_MSG_WARN([See config.log for details])
|
|
|
|
AC_MSG_ERROR([Cannot continue])
|
|
|
|
fi
|
|
|
|
|
|
|
|
AS_IF([test "$cross_compiling" = "yes"],
|
|
|
|
[AC_MSG_ERROR([Can not determine kind of selected_int_kind($1) when cross-compiling])],
|
|
|
|
[OMPI_LOG_COMMAND([./conftest],
|
|
|
|
[AS_VAR_SET(type_var, [`sed 's/ *//' conftestval`])],
|
|
|
|
[AC_MSG_ERROR([Could not determine kind of selected_int_kind($1)])])])
|
|
|
|
|
|
|
|
unset happy ompi_conftest_h
|
|
|
|
rm -f conftest*])
|
|
|
|
|
|
|
|
$3=AS_VAR_GET(type_var)
|
|
|
|
AS_VAR_POPDEF([type_var])dnl
|
|
|
|
])
|