diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2002-09-24 23:27:51 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2002-09-24 23:27:51 (GMT) |
| commit | f9c3920d286b9d18156d1b7d85f14852345b5e74 (patch) | |
| tree | a21cfd1ad685382b15a17d6e41cb65c7a81eb20b /fortran/test | |
| parent | d7be0ad7e093c924af79cceaa9a943331900b135 (diff) | |
| download | hdf5-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.f90 | 18 |
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 |