test_json_parser.f90 Source File

program main
    use IOClass
    use ArrayClass
    implicit none
    
    type(IO_) :: f

    print *, f%parse_json("my_nested_data.json",&
        to_list("test_1","test_2","value"))

    print *, f%parse_json("my_nested_data.json",&
        to_list("test_1","test_2","test_3","test_4","test_5","test_6"))

    print *, f%parse_json("my_nested_data.json",&
        to_list("test_1","test_2","test_3","test_4","test_5","test_8"))

    print *, f%parse_json("my_nested_data.json",&
        to_list("test_1","test_2","test_3","test_4","test_5","test_9"))


    ! parse json & convert it as array
    call print( f%parse_json("my_nested_data.json",&
        to_list("test_1","test_2","test_3","test_4","test_5","test_9")) .as. real64_array() )
    
    call print( f%parse_json("my_nested_data.json",&
        to_list("test_1","test_2","test_3","test_4","test_5","test_9")) .as. int32_array() )
    
    call print( f%parse_json("my_nested_data.json",&
        to_list("test_1","test_2","test_3","test_4","test_5","test_10")) .as. real64_vector() )
    
    call print( f%parse_json("my_nested_data.json",&
        to_list("test_1","test_2","test_3","test_4","test_5","test_10")) .as. int32_vector() )

    
    
end program main