diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-03-05 20:18:31 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-03-05 20:18:31 (GMT) |
| commit | ff5c7fe0d55373fb636364d8e02239ad1ac2dd17 (patch) | |
| tree | 74c9fd25a6dfbe5f9e2dd357e10b6c5679e0faca /fortran/test/fortranlib_test.f90 | |
| parent | 1e7558dbd00e68b02a295c049a5b4b8bc175fe10 (diff) | |
| download | hdf5-ff5c7fe0d55373fb636364d8e02239ad1ac2dd17.zip hdf5-ff5c7fe0d55373fb636364d8e02239ad1ac2dd17.tar.gz hdf5-ff5c7fe0d55373fb636364d8e02239ad1ac2dd17.tar.bz2 | |
[svn-r6464]
Purpose:
Maintenance
Description:
* Added support for generic properties.
* Added support for time allocation properties.
* Added support for variable length datatypes (only datatypes based
on INTEGER, REAL and CHARACTER Fortran types are supported).
* added some missing functions
Solution:
I am checking in new Fortran APIs and their man pages to support
1.5 features listed above.
Not all APIs have tests yet. APIs were written in Fall 2002, and I am afraid
that I will loose the code or totally forget what I did if I wait longer. ;-)
Platforms tested:
arabica (fortran), eirene (fortran), modi4 (parallel, fortran)
Diffstat (limited to 'fortran/test/fortranlib_test.f90')
| -rw-r--r-- | fortran/test/fortranlib_test.f90 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90 index 9b00bab..d588987 100644 --- a/fortran/test/fortranlib_test.f90 +++ b/fortran/test/fortranlib_test.f90 @@ -43,6 +43,7 @@ INTEGER :: identifier_total_error = 0 INTEGER :: group_total_error = 0 INTEGER :: error_total_error = 0 + INTEGER :: vl_total_error = 0 INTEGER :: majnum, minnum, relnum CHARACTER(LEN=8) error_string CHARACTER(LEN=8) :: success = ' PASSED ' @@ -276,6 +277,16 @@ write(*, fmt = e_format) error_string total_error = total_error + error_total_error + error_string = failure + CALL vl_test_integer(cleanup, vl_total_error) + CALL vl_test_real(cleanup, vl_total_error) + CALL vl_test_string(cleanup, vl_total_error) + IF (vl_total_error == 0) error_string = success + write(*, fmt = '(11a)', advance = 'no') ' VL test' + write(*, fmt = '(62x,a)', advance = 'no') ' ' + write(*, fmt = e_format) error_string + total_error = total_error + vl_total_error + write(*,*) write(*,*) ' ============================================ ' |