test_8 Subroutine

public subroutine test_8(error_cnt)

Arguments

Type IntentOptional AttributesName
integer, intent(out) :: error_cnt

Description

read a JSON structure from a string


Variables

TypeVisibility AttributesNameInitial
type(json_value), public, pointer:: p
type(json_core), public :: json

factory for manipulating json_value pointers

character(len=*), public, parameter:: newline =achar(10)
character(len=*), public, parameter:: str ='{ "label": "foo",'//newline//' "value": "bar" }'
character(len=*), public, parameter:: str2 ='{ "label": "foo",'//newline//'  "value": "bar",'//newline//'  "empty_array": [],'//newline//'  "empty_object": {}'//newline//'}'
character(len=*), public, parameter:: str_invalid ='{ "label": "foo",'//newline//' "value : "bar" }'