summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2002-09-24 23:27:51 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2002-09-24 23:27:51 (GMT)
commitf9c3920d286b9d18156d1b7d85f14852345b5e74 (patch)
treea21cfd1ad685382b15a17d6e41cb65c7a81eb20b /fortran/test
parentd7be0ad7e093c924af79cceaa9a943331900b135 (diff)
downloadhdf5-f9c3920d286b9d18156d1b7d85f14852345b5e74.zip
hdf5-f9c3920d286b9d18156d1b7d85f14852345b5e74.tar.gz
hdf5-f9c3920d286b9d18156d1b7d85f14852345b5e74.tar.bz2
[svn-r5946]
Purpose: Added missing fortran functions. Description: Four Library Fortran API functions have been added: h5get_libversion_f, h5_check_version_f, h5garbage_collect_f and h5dont_atexit_f. Only first two functions were tested. Documentation file and RELEASE.txt were updated. Platforms tested: Solaris 2.7, IRIX64-6.5 and Linux 2.2
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/fortranlib_test.f9018
1 files changed, 17 insertions, 1 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90
index 7756eee..a8d9565 100644
--- a/fortran/test/fortranlib_test.f90
+++ b/fortran/test/fortranlib_test.f90
@@ -41,6 +41,7 @@
INTEGER :: identifier_total_error = 0
INTEGER :: group_total_error = 0
INTEGER :: error_total_error = 0
+ INTEGER :: majnum, minnum, relnum
CHARACTER(LEN=8) error_string
CHARACTER(LEN=8) :: success = ' PASSED '
CHARACTER(LEN=8) :: failure = '*FAILED*'
@@ -52,10 +53,25 @@
write(*,*) ' ========================== '
write(*,*) ' FORTRAN tests '
write(*,*) ' ========================== '
+
+ CALL h5get_libversion_f(majnum, minnum, relnum, total_error)
+ if(total_error .eq. 0) then
+
+ write(*, '(" FORTRANLIB_TEST is linked with HDF5 Library version ")', advance="NO")
+ write(*, '(I1)', advance="NO") majnum
+ write(*, '(".")', advance="NO")
+ write(*, '(I1)', advance="NO") minnum
+ write(*, '(" release ")', advance="NO")
+ write(*, '(I3)') relnum
+ else
+ total_error = total_error + 1
+ endif
+ write(*,*)
+! CALL h5check_version_f(1,4,4,total_error)
+
! write(*,*) '========================================='
! write(*,*) 'Testing FILE Interface '
! write(*,*) '========================================='
-
error_string = failure
CALL mountingtest(cleanup, mounting_total_error)
IF (mounting_total_error == 0) error_string = success