mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-02-23 16:20:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #1465 in HDFFV/hdf5 from ~DEROBINS/hdf5_der:develop to develop

Browse Source 
* commit 'b82ced10619731125b9db7b1ac36f3844463df9a':
  Fix for Fortran failures.
This commit is contained in:
Dana Robinson 2019-01-10 20:39:29 -06:00
commit b9c8ddbfcc
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fortran/test/tH5P.F90
View File

@ -657,7 +657,7 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
minimize = .TRUE.
CALL h5pget_dset_no_attrs_hint_f(dcpl, minimize, error)
CALL check("h5pget_dset_no_attrs_hint_f",error,total_error)
if(error .eq. 0 .and. minimize .neqv. .FALSE.) then
if(minimize .neqv. .FALSE.) then
total_error = total_error + 1
write(*,*) "Default dataset minimize flag was incorrect (H5P)"
endif
@ -671,7 +671,7 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
minimize = .FALSE.
CALL h5pget_dset_no_attrs_hint_f(dcpl, minimize, error)
CALL check("h5pget_dset_no_attrs_hint_f",error,total_error)
if(error .eq. 0 .and. minimize .neqv. .TRUE.) then
if(minimize .neqv. .TRUE.) then
total_error = total_error + 1
write(*,*) "Unable to get correct dataset minimize flag (H5P)"
endif
@ -681,7 +681,7 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
minimize = .TRUE.
CALL h5fget_dset_no_attrs_hint_f(fid, minimize, error)
CALL check("h5fget_dset_no_attrs_hint_f",error,total_error)
if(error .eq. 0 .and. minimize .neqv. .FALSE.) then
if(minimize .neqv. .FALSE.) then
total_error = total_error + 1
write(*,*) "Default dataset minimize flag was incorrect (H5F)"
endif
@ -695,7 +695,7 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
minimize = .FALSE.
CALL h5fget_dset_no_attrs_hint_f(fid, minimize, error)
CALL check("h5fget_dset_no_attrs_hint_f",error,total_error)
if(error .eq. 0 .and. minimize .neqv. .TRUE.) then
if(minimize .neqv. .TRUE.) then
total_error = total_error + 1
write(*,*) "Unable to get correct dataset minimize flag (H5F)"
endif