jf_test_14_mod Module

dir filename1 icount

test_14 rename

jf_test_10_mod jf_test_11_mod jf_test_12_mod jf_test_13_mod jf_test_14_mod jf_test_1_mod jf_test_2_mod jf_test_3_mod jf_test_4_mod jf_test_5_mod jf_test_6_mod jf_test_7_mod jf_test_8_mod jf_test_9_mod json_module

Module for the 14th unit test.

Variables

Type	Visibility	Attributes		Name		Initial
character(len=*),	public,	parameter	::	dir	=	'../files/inputs/'	working directory
character(len=*),	public,	parameter	::	filename1	=	'test1.json'	the file to read
integer,	public		::	icount	=	0	a count of the number of "name" variables found

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	error_cnt	report number of errors to caller

Tests the traversal of a JSON structure

Type	Intent	Optional	Attributes		Name
type(json_value),	intent(in),		pointer	::	p
logical,	intent(out)			::	finished

change all "name" variable values to "Fred"