example: reopen same file, same mode

Author: scivision

cmake/check_hdf5.f90

@@ -17,7 +17,7 @@ program main
 print '(a,i0)', "H5F_ACC_TRUNC_F = ", H5F_ACC_TRUNC_F
 print '(a,i0)', "H5F_ACC_RDWR_F = ", H5F_ACC_RDWR_F
 
-if(H5F_ACC_RDONLY_F == H5F_ACC_TRUNC_F .or. H5F_ACC_RDONLY_F == H5F_ACC_RDWR_F) then
+if(any(H5F_ACC_RDONLY_F == [H5F_ACC_TRUNC_F, H5F_ACC_RDWR_F])) then
     error stop "H5F_ACC_RDONLY, H5F_ACC_TRUNC, H5F_ACC_RDWR are not all distinct"
 endif
 

example/CMakeLists.txt

@@ -1,4 +1,4 @@
-cmake_minimum_required(VERSION 3.22...3.27)
+cmake_minimum_required(VERSION 3.22...4.1)
 
 project(h5fortranExample
 LANGUAGES C CXX Fortran)
@@ -11,21 +11,13 @@ find_package(h5fortran CONFIG REQUIRED)
 add_library(fortran_interface fortran_interface.f90)
 target_link_libraries(fortran_interface PRIVATE h5fortran::h5fortran)
 
-add_executable(ex_fcn ex_fcn.f90)
-target_link_libraries(ex_fcn PRIVATE h5fortran::h5fortran)
-add_test(NAME Fortran_fcn COMMAND ex_fcn)
+foreach(t IN ITEMS ex_fcn ex_oo ex_oo3d char_repeat_read vtk_write)
 
-add_executable(ex_oo ex_oo.f90)
-target_link_libraries(ex_oo PRIVATE h5fortran::h5fortran)
-add_test(NAME Fortran_oo COMMAND ex_oo)
+add_executable(${t} ${t}.f90)
+target_link_libraries(${t} PRIVATE h5fortran::h5fortran)
+add_test(NAME Fortran_${t} COMMAND ${t})
 
-add_executable(repeat_char_read char_repeat_read.f90)
-target_link_libraries(repeat_char_read PRIVATE h5fortran::h5fortran)
-
-## VTK HDF5 write example
-add_executable(vtk_write vtk_write.f90)
-target_link_libraries(vtk_write PRIVATE h5fortran::h5fortran)
-add_test(NAME VTK COMMAND vtk_write ${CMAKE_CURRENT_BINARY_DIR}/vtk.hdf)
+endforeach()
 
 ## C, C++ examples
 
@@ -45,11 +37,15 @@ add_test(NAME CPP_fcn COMMAND cpp_fcn)
 get_property(test_names DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR} PROPERTY TESTS)
 set_property(TEST ${test_names} PROPERTY WORKING_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR})
 
+if(NOT DEFINED LINUX AND CMAKE_SYSTEM_NAME STREQUAL "Linux")
+  set(LINUX true)
+endif()
+
 if(WIN32)
 set_property(TEST ${test_names} PROPERTY
   ENVIRONMENT_MODIFICATION "PATH=path_list_prepend:${ZLIB_INCLUDE_DIRS}/../bin;PATH=path_list_prepend:${h5fortran_DIR}/../bin"
   )
-elseif(CMAKE_SYSTEM_NAME STREQUAL "Linux")
+elseif(LINUX)
 set_property(TEST ${test_names} PROPERTY
   ENVIRONMENT_MODIFICATION "LD_LIBRARY_PATH=path_list_prepend:${ZLIB_INCLUDE_DIRS}/../lib;LD_LIBRARY_PATH=path_list_prepend:${h5fortran_DIR}/../lib"
   )

example/ex_oo3d.f90

@@ -0,0 +1,28 @@
+program demo
+
+use h5fortran, only : hdf5_file
+
+implicit none
+
+character(len=*), parameter :: h5file = 'test_oo3d.h5'
+
+type(hdf5_file) :: h5f
+
+real, allocatable :: v3(:, :, :)
+
+allocate(v3(2, 4, 3))
+
+v3 = 0.
+
+call h5f % open(h5file, action='rw')
+call h5f % write('/value1', 123.)
+call h5f % close()
+
+print '(2a)', 'opening HDF5 file: ', h5file
+call h5f % open(h5file, comp_lvl = 1)
+
+print '(a)', 'Writing 3D array to dataset /value2'
+call h5f % write('/value2', v3)
+call h5f % close()
+
+end program

example/vtk_write.f90

@@ -26,7 +26,7 @@ program vtk_write
 real, allocatable :: Iterations(:,:,:), IterationsGradient(:,:,:,:)
 
 call get_command_argument(1, filename, status=ierr)
-if(ierr /= 0) error stop "please give filename to write"
+if(ierr /= 0) filename = "vtk_hdf_example.h5"
 
 call h % open(filename, 'w')