vchoi_fork

!****h* root/fortran/test/tH5E_F03.f90

!

! NAME

!  tH5E_F03.f90

!

! FUNCTION

!  Test FORTRAN HDF5 H5E APIs which are dependent on FORTRAN 2003

!  features. 

!

! COPYRIGHT

! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

!   Copyright by The HDF Group.                                               *

!   Copyright by the Board of Trustees of the University of Illinois.         *

!   All rights reserved.                                                      *

!                                                                             *

!   This file is part of HDF5.  The full HDF5 copyright notice, including     *

!   terms governing use, modification, and redistribution, is contained in    *

!   the COPYING file, which can be found at the root of the source code       *

!   distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases.  *

!   If you do not have access to either file, you may request a copy from     *

!   help@hdfgroup.org.                                                        *

! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

!

! USES

!  liter_cb_mod

!

! CONTAINS SUBROUTINES

!  test_error

!

!*****

​

! *****************************************

! ***        H 5 E   T E S T S

! *****************************************

MODULE test_my_hdf5_error_handler

​

  USE HDF5

  USE TH5_MISC

  USE TH5_MISC_GEN

​

CONTAINS

​

!***************************************************************

!**

!**  my_hdf5_error_handler: Custom error callback routine.

!**

!***************************************************************

​

    INTEGER FUNCTION my_hdf5_error_handler(estack_id, data_inout) bind(C)

​

    ! This error function handle works with only version 2 error stack