diff options
Diffstat (limited to 'fortran/test/fortranlib_test.F90')
-rw-r--r-- | fortran/test/fortranlib_test.F90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/fortran/test/fortranlib_test.F90 b/fortran/test/fortranlib_test.F90 index eb587a9..e0a837a 100644 --- a/fortran/test/fortranlib_test.F90 +++ b/fortran/test/fortranlib_test.F90 @@ -92,6 +92,14 @@ PROGRAM fortranlibtest CALL file_space("file_space",cleanup, ret_total_error) CALL write_test_status(ret_total_error, ' File free space test', total_error) + ret_total_error = 0 + CALL test_file_info("file_info",cleanup, ret_total_error) + CALL write_test_status(ret_total_error, ' File information test', total_error) + + ret_total_error = 0 + CALL test_get_file_image(ret_total_error) + CALL write_test_status(ret_total_error, ' Testing get file image ', total_error) + ! ! '=========================================' ! 'Testing DATASET Interface ' @@ -114,6 +122,11 @@ PROGRAM fortranlibtest CALL test_dset_fill(cleanup, ret_total_error) CALL write_test_status(ret_total_error, ' Filling dataspace elements', total_error) + ! Direct chunk IO + ret_total_error = 0 + CALL test_direct_chunk_io(cleanup, ret_total_error) + CALL write_test_status(ret_total_error, ' Direct chunk IO', total_error) + ! ! '=========================================' ! 'Testing DATASPACE Interface ' |