summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2006-04-10 02:46:40 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2006-04-10 02:46:40 (GMT)
commit1267f5408e7b515c6bad9b40fd4c9750789496bb (patch)
tree442efd813c1b3ead04a53c1171914e653959c4fb /fortran/test
parent15691f8827f4f7b5c3badd6094af7911731886b4 (diff)
downloadhdf5-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/test')
-rw-r--r--fortran/test/tH5F.f909
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)