jf_test_14_mod Module

  1. jf_test_14.f90
  2. jf_test_14_mod
module~~jf_test_14_mod~~UsesGraph module~jf_test_14_mod jf_test_14_mod iso_fortran_env iso_fortran_env iso_fortran_env->module~jf_test_14_mod module~json_file_module json_file_module iso_fortran_env->module~json_file_module module~json_value_module json_value_module iso_fortran_env->module~json_value_module module~json_kinds json_kinds iso_fortran_env->module~json_kinds module~json_module json_module module~json_module->module~jf_test_14_mod module~json_file_module->module~json_module module~json_value_module->module~json_module module~json_value_module->module~json_file_module module~json_kinds->module~json_module module~json_kinds->module~json_file_module module~json_kinds->module~json_value_module module~json_parameters json_parameters module~json_kinds->module~json_parameters module~json_string_utilities json_string_utilities module~json_kinds->module~json_string_utilities module~json_parameters->module~json_module module~json_parameters->module~json_file_module module~json_parameters->module~json_value_module module~json_parameters->module~json_string_utilities module~json_string_utilities->module~json_file_module module~json_string_utilities->module~json_value_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

Subroutines


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
character(len=:), public, allocatable:: new_name

name to change to

Subroutines

public subroutine rename(json, p, finished)

change all "name" variable values to "Fred"

Arguments

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

public subroutine test_14(error_cnt)

Tests the traversal of a JSON structure

Arguments

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

report number of errors to caller

All Modules