diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2009-09-17 17:03:42 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2009-09-17 17:03:42 (GMT) |
| commit | c0bb2c979bdff34fd15534034d1de48388fdf90e (patch) | |
| tree | 8effa84e4751284ca513da6ad4eed1128710936d /fortran/src/H5f90global.f90 | |
| parent | 7dc63bdf270925373cff2951f7303fddb74e6a16 (diff) | |
| download | hdf5-c0bb2c979bdff34fd15534034d1de48388fdf90e.zip hdf5-c0bb2c979bdff34fd15534034d1de48388fdf90e.tar.gz hdf5-c0bb2c979bdff34fd15534034d1de48388fdf90e.tar.bz2 | |
[svn-r17486] Description:
Merged changes in the trunk/fortran to 1.8.
svn merge -r 17222:17485 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran
Brings bugfixes into 1.8 for:
Bug [1652] h5lget_info_by_idx_f missing/broken functionality
and
Bug [1653] H5_LINK_* values defined in H5f90global.f90 are incorrect
Tested: jam (ifort)
smirom (gfortran)
linew (f90)
Diffstat (limited to 'fortran/src/H5f90global.f90')
| -rw-r--r-- | fortran/src/H5f90global.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index e037d12..3fc247f 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -473,10 +473,10 @@ MODULE H5GLOBAL INTEGER, PARAMETER :: H5L_FLAGS_LEN = 6 INTEGER :: H5L_flags(H5L_FLAGS_LEN) - INTEGER :: H5L_LINK_F INTEGER :: H5L_LINK_ERROR_F INTEGER :: H5L_LINK_HARD_F INTEGER :: H5L_LINK_SOFT_F + INTEGER :: H5L_LINK_EXTERNAL_F INTEGER :: H5L_SAME_LOC_F INTEGER :: H5L_LINK_CLASS_T_VERS_F @@ -485,10 +485,10 @@ MODULE H5GLOBAL !DEC$endif COMMON /H5L_FLAGS/ H5L_flags - EQUIVALENCE(H5L_flags(1), H5L_LINK_F) - EQUIVALENCE(H5L_flags(2), H5L_LINK_ERROR_F) - EQUIVALENCE(H5L_flags(3), H5L_LINK_HARD_F) - EQUIVALENCE(H5L_flags(4), H5L_LINK_SOFT_F) + EQUIVALENCE(H5L_flags(1), H5L_LINK_ERROR_F) + EQUIVALENCE(H5L_flags(2), H5L_LINK_HARD_F) + EQUIVALENCE(H5L_flags(3), H5L_LINK_SOFT_F) + EQUIVALENCE(H5L_flags(4), H5L_LINK_EXTERNAL_F) EQUIVALENCE(H5L_flags(5), H5L_SAME_LOC_F) EQUIVALENCE(H5L_flags(6), H5L_LINK_CLASS_T_VERS_F) ! |