jf_test_14_mod Module

module~~jf_test_14_mod~~UsesGraph module~jf_test_14_mod jf_test_14_mod module~json_module json_module module~json_module->module~jf_test_14_mod iso_fortran_env iso_fortran_env iso_fortran_env->module~jf_test_14_mod iso_fortran_env->module~json_module
Help

Module for the 14th unit test.

Used By

module~~jf_test_14_mod~~UsedByGraph module~jf_test_14_mod jf_test_14_mod program~jf_test_14 jf_test_14 module~jf_test_14_mod->program~jf_test_14
Help

Variables

TypeVisibility AttributesNameInitial
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


Subroutines

public subroutine test_14(error_cnt)

Arguments

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

report number of errors to caller

Description

Tests the traversal of a JSON structure

public subroutine rename(p, finished)

Arguments

Type IntentOptional AttributesName
type(json_value), intent(in), pointer:: p
logical, intent(out) :: finished

Description

change all "name" variable values to "Fred"