From 1267f5408e7b515c6bad9b40fd4c9750789496bb Mon Sep 17 00:00:00 2001
From: Quincey Koziol <koziol@hdfgroup.org>
Date: Sun, 9 Apr 2006 21:46:40 -0500
Subject: [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:
---
 fortran/test/tH5F.f90 | 9 +++++----
 1 file 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)
-- 
cgit v0.12