test_15 Subroutine

public subroutine test_15(error_cnt)

Arguments

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

report number of errors to caller

Description

Test some of the edge cases, and incorrect usages.


Variables

TypeVisibility AttributesNameInitial
type(json_core), public :: json
type(json_value), public, pointer:: p
type(json_value), public, pointer:: p2
type(json_file), public :: file1
type(json_file), public :: file2
logical, public :: found
logical, public :: status_ok
integer, public :: var_type
integer, public :: i
integer, public :: n_children
real(kind=wp), public :: d
logical, public :: tf
character(kind=CK,len=:), public, allocatable:: error_msg