diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-12-11 18:29:36 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-12-11 18:29:36 (GMT) |
| commit | 16be9e3b5ab32e2c636cd5a0606f631be46226f1 (patch) | |
| tree | 946944806ab9a03c48fecf2561ff174fc48b5b7e /fortran/test/tf.f90 | |
| parent | e865f21190c01363f03f4753fce66cac26f0409b (diff) | |
| download | hdf5-16be9e3b5ab32e2c636cd5a0606f631be46226f1.zip hdf5-16be9e3b5ab32e2c636cd5a0606f631be46226f1.tar.gz hdf5-16be9e3b5ab32e2c636cd5a0606f631be46226f1.tar.bz2 | |
[svn-r7935] Purpose:
Add new feature
Description:
Add FORTRAN wrappers for new H5I routines.
Platforms tested:
FreeBSD 4.9 (sleipnir)
h5committest
Diffstat (limited to 'fortran/test/tf.f90')
| -rw-r--r-- | fortran/test/tf.f90 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90 index 816bcc5..3a8a3ee 100644 --- a/fortran/test/tf.f90 +++ b/fortran/test/tf.f90 @@ -32,6 +32,16 @@ RETURN END SUBROUTINE check + SUBROUTINE verify(string,value,correct_value,total_error) + CHARACTER(LEN=*) :: string + INTEGER :: value, correct_value, total_error + if (value .ne. correct_value) then + total_error=total_error+1 + write(*,*) string + endif + RETURN + END SUBROUTINE verify + !---------------------------------------------------------------------- ! Name: h5_fixname_f ! |