config/f77_purge_unsupported_kind.m4

   1 dnl -*- shell-script -*-
   2 dnl
   3 dnl Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
   4 dnl                         University Research and Technology
   5 dnl                         Corporation.  All rights reserved.
   6 dnl Copyright (c) 2004-2005 The University of Tennessee and The University
   7 dnl                         of Tennessee Research Foundation.  All rights
   8 dnl                         reserved.
   9 dnl Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
  10 dnl                         University of Stuttgart.  All rights reserved.
  11 dnl Copyright (c) 2004-2005 The Regents of the University of California.
  12 dnl                         All rights reserved.
  13 dnl $COPYRIGHT$
  14 dnl
  15 dnl Additional copyrights may follow
  16 dnl
  17 dnl $HEADER$
  18 dnl
  19
  20 AC_DEFUN([OMPI_F77_PURGE_UNSUPPORTED_KIND],[
  21 # Purge F77 types (such as INTEGER*16) that don't match exptected datatype size.
  22 # First arg is type, 2nd arg is config var to define.
  23 AC_MSG_CHECKING([whether Fortran $1 has expected size])
  24
  25   val=`echo $1 | cut -f2 -d'*'`
  26   type=`echo $1 | cut -f1 -d'*'`
  27   if test "x$((OMPI_SIZEOF_FORTRAN_$type$val))" != "x$val" ; then
  28     eval "OMPI_SIZEOF_FORTRAN_$type$val=0"
  29     # eval "OMPI_ALIGNMENT_FORTRAN_$type$val=0"
  30     eval "OMPI_HAVE_FORTRAN_$type$val=0"
  31     AC_MSG_RESULT([no])
  32   else
  33     AC_MSG_RESULT([yes])
  34   fi
  35   unset val type
  36 ])dnl