summaryrefslogtreecommitdiffstats
path: root/fortran/test/fortranlib_test_F03.f90
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2011-08-31 03:02:41 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2011-08-31 03:02:41 (GMT)
commit2f282ffa9ddd0115e37b465463a104c49299fa33 (patch)
tree9cad54b4b5f288ea34ea9eb34c612f376a19a109 /fortran/test/fortranlib_test_F03.f90
parent857bb0f9e24c166c7420d9ddcdcc77da19348a2d (diff)
downloadhdf5-2f282ffa9ddd0115e37b465463a104c49299fa33.zip
hdf5-2f282ffa9ddd0115e37b465463a104c49299fa33.tar.gz
hdf5-2f282ffa9ddd0115e37b465463a104c49299fa33.tar.bz2
[svn-r21339] Description: Added test for reading and writing vl strings in fortran (using F2003), for both 1D and 2D array of vl strings.
Tested: jam (pgi, gfortran 4.5, ifort) linew (12.3 beta)
Diffstat (limited to 'fortran/test/fortranlib_test_F03.f90')
-rw-r--r--fortran/test/fortranlib_test_F03.f904
1 files changed, 4 insertions, 0 deletions
diff --git a/fortran/test/fortranlib_test_F03.f90 b/fortran/test/fortranlib_test_F03.f90
index 62315ba..1e58616 100644
--- a/fortran/test/fortranlib_test_F03.f90
+++ b/fortran/test/fortranlib_test_F03.f90
@@ -109,6 +109,10 @@ PROGRAM fortranlibtest_F03
CALL write_test_status(ret_total_error, ' Testing writing/reading variable-string datatypes, using C_LOC', total_error)
ret_total_error = 0
+ CALL t_vlstring_readwrite(ret_total_error)
+ CALL write_test_status(ret_total_error, ' Testing variable-string write/read, using h5dwrite_f/h5dread_f', total_error)
+
+ ret_total_error = 0
CALL t_string(ret_total_error)
CALL write_test_status(ret_total_error, ' Testing writing/reading string datatypes, using C_LOC', total_error)