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) 2010-2011 Cisco Systems, Inc.  All rights reserved.
dnl $COPYRIGHT$
dnl 
dnl Additional copyrights may follow
dnl 
dnl $HEADER$
dnl

# Check whether or not the Fortran compiler supports the "private"
# keyword in derived types or not.

# OMPI_FORTRAN_CHECK_PRIVATE([action if found], 
#                            [action if not found])
# ----------------------------------------------------
AC_DEFUN([OMPI_FORTRAN_CHECK_PRIVATE],[
    AS_VAR_PUSHDEF([private_var], [ompi_cv_fortran_private])

# JMS Temporary override for the Absoft compiler until they are able
# to fix derived types with private members and -g.
    AC_ARG_ENABLE([f08-private-status],
        [AC_HELP_STRING([--disable-f08-private-status],
            [disable the "private" attribute in the mpi_f08 MPI_Status type for buggy compilers])])

    AC_CACHE_CHECK([if Fortran compiler supports private], private_var,
       [AC_LANG_PUSH([Fortran])
        AC_COMPILE_IFELSE([AC_LANG_SOURCE([[module test_for_private
   type :: derived_with_private
      integer :: this_is_a_public_integer
      integer, private :: this_is_a_private_integer
   end type derived_with_private
end module test_for_private]])],
             [AS_VAR_SET(private_var, yes)],
             [AS_VAR_SET(private_var, no)])
        touch conftest_foo.mod
        rm -rf *.mod 2>/dev/null
        AC_LANG_POP([Fortran])

# JMS Temporary override for the Absoft compiler until they are able
# to fix derived types with private members and -g.
        AS_IF([test "enable_f08_private_status" = "no"],
              [AS_VAR_SET(private_var, no)])
       ])

    AS_VAR_IF(private_var, [yes], [$1], [$2])
    AS_VAR_POPDEF([private_var])dnl
])