From dd68ba15ea6b483b307ccce4e34a08e108cd93a6 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Fri, 11 Sep 2009 16:50:47 -0500 Subject: [svn-r17470] Bug fix: Bug 1653 - H5_LINK_* values defined in H5f90global.f90 are incorrect The Fortran EQUIVALENCE constant variables did not match those from the C definitions, fixed. Missed because there is not a Fortran test function that uses these constants. Tested: smirom (ifort, g95) --- fortran/src/H5f90global.f90 | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index e037d12..49d9398 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -473,7 +473,6 @@ 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 @@ -485,10 +484,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) ! -- cgit v0.12