diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2006-10-02 10:24:03 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2006-10-02 10:24:03 (GMT) |
| commit | a6f6462541cc57364586f770131e2ea074d63492 (patch) | |
| tree | 0debf502fb7d66f9f470edb935a62223945960d4 /fortran/test/tH5F.f90 | |
| parent | 9bc29ea538b9ce2013a8cde5be230c18cf052009 (diff) | |
| download | hdf5-a6f6462541cc57364586f770131e2ea074d63492.zip hdf5-a6f6462541cc57364586f770131e2ea074d63492.tar.gz hdf5-a6f6462541cc57364586f770131e2ea074d63492.tar.bz2 | |
[svn-r12700] Alert:
File format is not stable, don't keep files produced!
Description:
First stage of checkins modifying the format of groups to support creation
order. Implement "dense" storage for links in groups.
Try to clarify some of the symbols for the H5L API.
Add the H5Pset_latest_format() flag for FAPLs, to choose to use the newest
file format options (including "dense" link storage in groups)
Add the H5Pset_track_creation_order() flag for GCPLs, to enable creation
order tracking in groups (although no index on creation order yet).
Remove --enable-group-revision configure flag, as file format issues are
now handled in a backwardly/forwardly compatible way.
Clean up lots of compiler warnings and other minor formatting issues.
Tested on:
FreeBSD/32 4.11 (sleipnir) w/threadsafe
Linux/32 2.4 (heping) w/FORTRAN & C++
Linux/64 2.4 (mir) w/enable-v1.6 compa
Mac OSX/32 10.4.8 (amazon)
AIX 5.3 (copper) w/parallel & FORTRAN
Diffstat (limited to 'fortran/test/tH5F.f90')
| -rw-r--r-- | fortran/test/tH5F.f90 | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90 index 2cc4766..091b1a5 100644 --- a/fortran/test/tH5F.f90 +++ b/fortran/test/tH5F.f90 @@ -747,16 +747,8 @@ ! Check the free space now CALL h5fget_freespace_f(fid, free_space, error) - CALL h5_group_revision_f(flag) CALL check("h5fget_freespace_f",error,total_error) - if(flag .eq. 1) then - free_space_out = 232 - else - free_space_out = 1024 - endif - if(error .eq.0 .and. free_space .ne. free_space_out) then -! if(error .eq.0 .and. free_space .ne. 232) then -! if(error .eq.0 .and. free_space .ne. 1024) then + if(error .eq.0 .and. free_space .ne. 0) then total_error = total_error + 1 write(*,*) "3: Wrong amount of free space reported, ", free_space endif |