hdf5_ep

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

!

! NAME

!  tH5G_1_8.f90

!

! FUNCTION

!  Basic testing of Fortran H5G APIs introduced in 1.8.

!

! 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.                                                        *

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

!

! CONTAINS SUBROUTINES

!  group_test, group_info, timestamps, mklinks, test_move_preserves, lifecycle

!  cklinks, delete_by_idx, link_info_by_idx_check, test_lcpl, objcopy, 

!  lapl_nlinks

!

!*****

​

MODULE TH5G_1_8

​

  USE HDF5

  USE TH5_MISC

  USE TH5_MISC_GEN

​

CONTAINS

​

SUBROUTINE group_test(cleanup, total_error)

​

  IMPLICIT NONE

  LOGICAL, INTENT(IN)  :: cleanup

  INTEGER, INTENT(INOUT) :: total_error

​

  INTEGER(HID_T) :: fapl, fapl2, my_fapl !  File access property lists 

​

  INTEGER :: error, ret_total_error

​

!  WRITE(*,*) "TESTING GROUPS"

  CALL H5Pcreate_f(H5P_FILE_ACCESS_F, fapl, error)

  CALL check("H5Pcreate_f",error, total_error)

​