diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2005-04-10 22:15:51 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2005-04-10 22:15:51 (GMT) |
| commit | 408471420f13327597fb9c87149bc1bc709f8740 (patch) | |
| tree | 9b9057577559d7cee59b25deac34c9af32a3dd9c /fortran/testpar | |
| parent | 13ca97618db62034fa78b8d87f7160cb2a1f4bfc (diff) | |
| download | hdf5-408471420f13327597fb9c87149bc1bc709f8740.zip hdf5-408471420f13327597fb9c87149bc1bc709f8740.tar.gz hdf5-408471420f13327597fb9c87149bc1bc709f8740.tar.bz2 | |
[svn-r10585] Purpose: Bug fix
Description: h5pget_driver_f function returned information that could not
be interpreted by fortran application
Solution: Defined Fortran global variables that correspond to
the C H5FD_<driver_name> variables at the Fortran library
initialization time.
Platforms tested: heping with PGI compilers, sol 64-bit and copper parallel
Misc. update:
Diffstat (limited to 'fortran/testpar')
| -rw-r--r-- | fortran/testpar/thyperslab_wr.f90 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/fortran/testpar/thyperslab_wr.f90 b/fortran/testpar/thyperslab_wr.f90 index 8db32e9..a9f6f06 100644 --- a/fortran/testpar/thyperslab_wr.f90 +++ b/fortran/testpar/thyperslab_wr.f90 @@ -41,6 +41,7 @@ INTEGER :: rank = 2 ! Dataset rank INTEGER :: i, j INTEGER(HSIZE_T), DIMENSION(2) :: dims + INTEGER(HID_T) :: driver INTEGER :: error ! Error flag ! @@ -60,6 +61,11 @@ CALL check("h5pcreate_f", error, total_error) CALL h5pset_fapl_mpio_f(plac_id, comm, info, error) CALL check("h5pset_fapl_mpio_f", error, total_error) + CALL h5pget_driver_f(plac_id, driver, error) + CALL check("h5pget_driver_f", error, total_error) + if( driver .ne. H5FD_MPIO_F) then + write(*,*) "Wrong driver information returned" + endif CALL h5_fixname_f(filename, fix_filename, plac_id, error) ! |