summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2016-02-11 21:50:22 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2016-02-11 21:50:22 (GMT)
commit39fa38559437cd30c69068ccab53fe67343a1b19 (patch)
treed7c2a93996da136fc938da22830760592f5278f7 /fortran
parente7c12365431a3e5997835b401befd0dd6f589054 (diff)
downloadhdf5-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.F904
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)