diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-02-11 21:50:22 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-02-11 21:50:22 (GMT) |
| commit | 39fa38559437cd30c69068ccab53fe67343a1b19 (patch) | |
| tree | d7c2a93996da136fc938da22830760592f5278f7 /fortran | |
| parent | e7c12365431a3e5997835b401befd0dd6f589054 (diff) | |
| download | hdf5-39fa38559437cd30c69068ccab53fe67343a1b19.zip hdf5-39fa38559437cd30c69068ccab53fe67343a1b19.tar.gz hdf5-39fa38559437cd30c69068ccab53fe67343a1b19.tar.bz2 | |
[svn-r29092] Fixed uninitialized return value from fortran API.
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/test/tH5P_F03.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/test/tH5P_F03.F90 b/fortran/test/tH5P_F03.F90 index 3cafdcb..15bd86f 100644 --- a/fortran/test/tH5P_F03.F90 +++ b/fortran/test/tH5P_F03.F90 @@ -664,7 +664,7 @@ SUBROUTINE test_vds(total_error) INTEGER(hid_t) :: vfile, file, src_space, mem_space, vspace, vdset, dset !Handles INTEGER(hid_t) :: dcpl, dapl - INTEGER :: status, error + INTEGER :: error INTEGER(hsize_t), DIMENSION(1:3) :: vdsdims = (/4*DIM0_1, VDSDIM1, VDSDIM2/), & vdsdims_max, & dims = (/DIM0_1, DIM1, DIM2/), & @@ -731,7 +731,7 @@ SUBROUTINE test_vds(total_error) ! ! Create the source files and datasets. Write data to each dataset and ! close all resources. - CALL h5fcreate_f(SRC_FILE(i), H5F_ACC_TRUNC_F, file, status) + CALL h5fcreate_f(SRC_FILE(i), H5F_ACC_TRUNC_F, file, error) CALL check("h5fcreate_f", error, total_error) CALL h5screate_simple_f(RANK, dims, src_space, error, dims_max) |