From 181102ff7483d517ecd40e4d6f81a929ca854de3 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Wed, 7 Sep 2005 11:06:49 -0500 Subject: [svn-r11359] Purpose: Bug fix/maintenance/new feature Description: Currently we are trying to match excatly Fortran and C types. Unfortunately, some systems (SX-6) provide compiler switches (-ew) that make ALL Fortran types to be at least of size 8. As a result, Fortran library cannot be compiled. Solution: Allow INTEGER(HID_T) type to be 8 bytes if necessary. The values of this type are originated in the C library and can be safely passed back and forth. Please note that we cannot do the same for INTEGER(SIZE_T) type. Fortunately there is a switch that allows size_t be 8 bytes for both C and Fortran compilers. Platforms tested: It is a minor change, therefore SX-6 only; daily tests will do the rest :-) Misc. update: --- fortran/src/H5match_types.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c index 2c11a29..941ad67 100644 --- a/fortran/src/H5match_types.c +++ b/fortran/src/H5match_types.c @@ -243,6 +243,8 @@ int main() writeToFiles("HID_T", "hid_t_f", 2); #elif defined H5_FORTRAN_HAS_INTEGER_1 && H5_SIZEOF_HID_T >= 1 writeToFiles("HID_T", "hid_t_f", 1); +#if defined H5_FORTRAN_HAS_INTEGER_8 && H5_SIZEOF_HID_T >= 4 + writeToFiles("HID_T", "hid_t_f", 8); #else /* Error: couldn't find a size for hid_t */ return -1; -- cgit v0.12