[svn-r2795]

Purpose:
    New feature
Description:
    Now all Fortran flags such as H5F_ACC_RDONLY_F (previously defined in the
    H5fortran_flags.f90 file) are generated at runtime when h5init_fortran_f
    subroutine is called. All flags have now the same value as
    corresponding C flags. This change affects user's programming model:
    Every Fortran program that uses F90 HDF5 Library has to call
    h5init_fortran_f(error) subroutine before the first call to the
    F90 HDF5 Library and h5close_fortran_f(error) after the last call to the
    Library. h5init(close)_types_f calls are not needed anymore since
    F90 datatypes are intialized(closed) with the h5init(close)_fortran_f
    calls.

Platforms tested:
     O2K and Solaris2.7

1 files changed, 3 insertions, 0 deletions

diff --git a/fortran/src/H5Gf.c b/fortran/src/H5Gf.c
index 110db73..e86d342 100644
--- a/fortran/src/H5Gf.c
+++ b/fortran/src/H5Gf.c
@@ -139,6 +139,8 @@ nh5gget_obj_info_idx_c
                             HDfree(c_obj_name);
                             return ret_value;
                           }
+     *obj_type = type;
+/*
      switch (type) {
      case H5G_LINK:
           *obj_type = H5G_LINK_F;
@@ -158,6 +160,7 @@ nh5gget_obj_info_idx_c
      default:
            return ret_value;
      }
+*/
      /*
       * Convert C name to FORTRAN and place it in the given buffer
       */