diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2006-04-10 02:46:40 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2006-04-10 02:46:40 (GMT) |
| commit | 1267f5408e7b515c6bad9b40fd4c9750789496bb (patch) | |
| tree | 442efd813c1b3ead04a53c1171914e653959c4fb /fortran | |
| parent | 15691f8827f4f7b5c3badd6094af7911731886b4 (diff) | |
| download | hdf5-1267f5408e7b515c6bad9b40fd4c9750789496bb.zip hdf5-1267f5408e7b515c6bad9b40fd4c9750789496bb.tar.gz hdf5-1267f5408e7b515c6bad9b40fd4c9750789496bb.tar.bz2 | |
[svn-r12217] Purpose:
Code cleanup
Description:
Tweak fortran test for alpha release to check for different file size
(a size difference between the compact & "old" dense form).
Platforms tested:
FreeBSD 4.11 (sleipnir)
Linux 2.4 32-bit (heping)
Linux 2.4 64-bit (mir)
Solaris 2.9 (shanti)
Misc. update:
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/test/tH5F.f90 | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90 index 124c56d..f85d3e9 100644 --- a/fortran/test/tH5F.f90 +++ b/fortran/test/tH5F.f90 @@ -720,7 +720,7 @@ CALL check("h5fget_freespace_f",error,total_error) if(error .eq.0 .and. free_space .ne. 0) then total_error = total_error + 1 - write(*,*) "Wrong amount of free space reported, ", free_space + write(*,*) "1: Wrong amount of free space reported, ", free_space endif ! Create group in the file. @@ -736,7 +736,7 @@ CALL check("h5fget_freespace_f",error,total_error) if(error .eq.0 .and. free_space .ne. 0) then total_error = total_error + 1 - write(*,*) "Wrong amount of free space reported, ", free_space + write(*,*) "2: Wrong amount of free space reported, ", free_space endif !Unlink the group @@ -746,9 +746,10 @@ ! Check the free space now CALL h5fget_freespace_f(fid, free_space, error) CALL check("h5fget_freespace_f",error,total_error) - if(error .eq.0 .and. free_space .ne. 232) then +! if(error .eq.0 .and. free_space .ne. 232) then + if(error .eq.0 .and. free_space .ne. 1024) then total_error = total_error + 1 - write(*,*) "Wrong amount of free space reported, ", free_space + write(*,*) "3: Wrong amount of free space reported, ", free_space endif CALL h5fclose_f(fid, error) |