diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-10-30 21:03:18 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-10-30 21:03:18 (GMT) |
| commit | 76807a69853689cae7ce847a113da839db9a2fe8 (patch) | |
| tree | 055b42daab4671464a8b460dcd647234fdf8eed8 /fortran/testpar/tcheck.f90 | |
| parent | d26db0af91e1ea5c30d9bea820a36e9a50414bdd (diff) | |
| download | hdf5-76807a69853689cae7ce847a113da839db9a2fe8.zip hdf5-76807a69853689cae7ce847a113da839db9a2fe8.tar.gz hdf5-76807a69853689cae7ce847a113da839db9a2fe8.tar.bz2 | |
[svn-r2753]
Purpose:
Adding F90 || tests.
Description:
I created testpar directory with the following files
ptesthdf5_fortran.f90 - F90 test driver program
tcheck.f90 thdf5.f90 - handy subroutines to use with the tests
thyperslab_wr.f90 - F90 test:
collectively writes and reads hyperslabs to/from the dataset
Solution:
Platforms tested:
Partially tested on modi4 (O2K)
Diffstat (limited to 'fortran/testpar/tcheck.f90')
| -rw-r--r-- | fortran/testpar/tcheck.f90 | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/fortran/testpar/tcheck.f90 b/fortran/testpar/tcheck.f90 new file mode 100644 index 0000000..978c832 --- /dev/null +++ b/fortran/testpar/tcheck.f90 @@ -0,0 +1,16 @@ +! +! +! This module contains check subroutine which is used in +! all the fortran h5 test files +! + + SUBROUTINE check(string,error,total_error) + CHARACTER(LEN=*) :: string + INTEGER :: error, total_error + if (error .lt. 0) then + total_error=total_error+1 + write(*,*) string, " failed" + endif + RETURN + END SUBROUTINE check + |